CVS: sbcl/src/pcl defs.lisp,1.26.6.4,1.26.6.5

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1:/tmp/cvs-serv29606/src/pcl

Modified Files:
      Tag: pcl_class_defrobulation_branch
        defs.lisp 
Log Message:
0.7.13.pcl-class.8
        Let CLASS objects be dumpable
        ... MAKE-LOAD-FORM method from Gerd Moellmann


Index: defs.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/defs.lisp,v
retrieving revision 1.26.6.4
retrieving revision 1.26.6.5
diff -u -d -r1.26.6.4 -r1.26.6.5
--- defs.lisp   21 Mar 2003 18:15:18 -0000      1.26.6.4
+++ defs.lisp   23 Mar 2003 17:25:07 -0000      1.26.6.5
@@ -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)



-------------------------------------------------------
This SF.net email is sponsored by:Crypto Challenge is now open! 
Get cracking and register here for some mind boggling fun and 
the chance of winning an Apple iPod:
http://ads.sourceforge.net/cgi-bin/redirect.pl?thaw0031en