X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=515a222e98db51801a3cf074f2180a6b936237a4;hb=aebbc5aad31f7e55930c996a8c54f0a135e00894;hp=9b4bb439921967dfe3a2eec0fd7728cc97d1edd8;hpb=80cc96cee0097619d3aab31244c0c3b8b32d3d0f;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 9b4bb43..515a222 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -518,6 +518,16 @@
     :initform nil
     :reader class-predicate-name)))
 
+(def!method make-load-form ((class class) &optional env)
+  ;; FIXME: should we not instead pass ENV to FIND-CLASS?  Probably
+  ;; doesn't matter while all our environments are the same...
+  (declare (ignore env))
+  (let ((name (class-name class)))
+    (unless (and name (eq (find-class name nil) class))
+      (error "~@<Can't use anonymous or undefined class as constant: ~S~:@>"
+	     class))
+    `(find-class ',name)))
+
 ;;; The class PCL-CLASS is an implementation-specific common
 ;;; superclass of all specified subclasses of the class CLASS.
 (defclass pcl-class (class)