[Openmcl-cvs-notifications] r10419 - /trunk/source/xdump/xfasload.lisp

[gb at clozure.com]

Author: gb
Date: Sun Aug 10 07:06:04 2008
New Revision: 10419

Log:
Maintain *XLOAD-EARLY-CLASS-CELLS*, set *XLOAD-CLASS-CELLS* to
the xdumped version of its (possibly null) value.





Modified:
    trunk/source/xdump/xfasload.lisp

Modified: trunk/source/xdump/xfasload.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/xdump/xfasload.lisp (original)
+++ trunk/source/xdump/xfasload.lisp Sun Aug 10 07:06:04 2008
@@ -1100,10 +1100,8 @@
     (setf (xload-symbol-value (xload-copy-symbol '*xload-cold-load-functio=
ns*))
           (xload-save-list (setq *xload-cold-load-functions*
                                  (nreverse *xload-cold-load-functions*))))
-    #+notyet
-    (when *xload-early-class-cells*
-      (setf (xload-symbol-value (xload-copy-symbol '*early-class-cells*))
-            (xload-save-list (mapcar #'xload-save-list *xload-early-class-=
cells*))))
+    (setf (xload-symbol-value (xload-copy-symbol '*early-class-cells*))
+          (xload-save-list (mapcar #'xload-save-list *xload-early-class-ce=
lls*)))
     (setf (xload-symbol-value (xload-copy-symbol '*istruct-cells*))
           *xload-early-istruct-cells*)
     (let* ((svnrev (local-svn-revision))
@@ -1407,8 +1405,7 @@
 =

 (defxloadfaslop $fasl-eval (s)
   (let* ((expr (%fasl-expr-preserve-epush s)))
-    (cond #+notyet
-          ((and (xload-target-consp expr)
+    (cond ((and (xload-target-consp expr)
                 (eq (xload-lookup-symbol-address (xload-car expr))
                     'find-class-cell)
                 (xload-target-consp (xload-car (xload-cdr expr)))