X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmacros.lisp;h=296aeb422b4eca6a47eaacf59ddbd510f95dd8a5;hb=b7d4d90a22c7dff0c41d261fc4f5c3266edd2a6e;hp=44c4127bac714682c94af8a2695d537afcaaad32;hpb=015c86a5eaaa3d2490d221ae56ffec36d2007529;p=sbcl.git

diff --git a/src/pcl/macros.lisp b/src/pcl/macros.lisp
index 44c4127..296aeb4 100644
--- a/src/pcl/macros.lisp
+++ b/src/pcl/macros.lisp
@@ -164,19 +164,24 @@
 
 (defun (setf find-class) (new-value name &optional errorp environment)
   (declare (ignore errorp environment))
-  (if (legal-class-name-p name)
-      (let ((cell (find-class-cell name)))
-	(setf (find-class-cell-class cell) new-value)
-	(when (and (eq *boot-state* 'complete) (null new-value))
-	  (setf (find-classoid name) nil))
-	(when (or (eq *boot-state* 'complete)
-		  (eq *boot-state* 'braid))
-	  (when (and new-value (class-wrapper new-value))
-	    (setf (find-class-cell-predicate cell)
-		  (fdefinition (class-predicate-name new-value))))
-	  (update-ctors 'setf-find-class :class new-value :name name))
-	new-value)
-      (error "~S is not a legal class name." name)))
+  (cond ((legal-class-name-p name)
+	 (with-single-package-locked-error
+	     (:symbol name "using ~A as the class-name argument in ~
+                           (SETF FIND-CLASS)"))
+	 (let ((cell (find-class-cell name)))
+	   (setf (find-class-cell-class cell) new-value)
+	   (when (and (eq *boot-state* 'complete) (null new-value))
+	     (setf (find-classoid name) nil))
+	   (when (or (eq *boot-state* 'complete)
+		     (eq *boot-state* 'braid))
+	     (when (and new-value (class-wrapper new-value)
+                        (class-predicate-name new-value))
+	       (setf (find-class-cell-predicate cell)
+		     (fdefinition (class-predicate-name new-value))))
+	     (update-ctors 'setf-find-class :class new-value :name name))
+	   new-value))
+	(t
+	 (error "~S is not a legal class name." name))))
 
 (/show "pcl/macros.lisp 230")