[Openmcl-cvs-notifications] r10420 - /trunk/source/level-1/l1-clos.lisp

[gb at clozure.com]

Author: gb
Date: Sun Aug 10 07:37:38 2008
New Revision: 10420

Log:
MAKE-LOAD-FORM method for CLASS-CELL has to quote class name and pass a
second argument.  Sheesh.



Modified:
    trunk/source/level-1/l1-clos.lisp

Modified: trunk/source/level-1/l1-clos.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-clos.lisp (original)
+++ trunk/source/level-1/l1-clos.lisp Sun Aug 10 07:37:38 2008
@@ -1672,7 +1672,7 @@
 =

 (defmethod make-load-form ((c class-cell) &optional env)
   (declare (ignore env))
-  `(find-class-cell ',(class-cell-name c)))
+  `(find-class-cell ',(class-cell-name c) t))
 =

 =

 =