X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-setf.lisp;h=2185a96e640675f4c023551f3f1f312048145c10;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=7f6dce7f067f2ae127c7e4f4d16f52cc11a56447;hpb=9ef5be5321618ef470f17d274c1a64b2b487d54f;p=sbcl.git diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp index 7f6dce7..2185a96 100644 --- a/src/code/early-setf.lisp +++ b/src/code/early-setf.lisp @@ -337,6 +337,8 @@ GET-SETF-EXPANSION directly." (eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute) ;;; Assign SETF macro information for NAME, making all appropriate checks. (defun assign-setf-macro (name expander inverse doc) + (with-single-package-locked-error + (:symbol name "defining a setf-expander for ~A")) (cond ((gethash name sb!c:*setf-assumed-fboundp*) (warn "defining setf macro for ~S when ~S was previously ~