Changeset 10419


Ignore:
Timestamp:
Aug 10, 2008, 11:06:04 AM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/xdump/xfasload.lisp

    r10302 r10419  
    11011101          (xload-save-list (setq *xload-cold-load-functions*
    11021102                                 (nreverse *xload-cold-load-functions*))))
    1103     #+notyet
    1104     (when *xload-early-class-cells*
    1105       (setf (xload-symbol-value (xload-copy-symbol '*early-class-cells*))
    1106             (xload-save-list (mapcar #'xload-save-list *xload-early-class-cells*))))
     1103    (setf (xload-symbol-value (xload-copy-symbol '*early-class-cells*))
     1104          (xload-save-list (mapcar #'xload-save-list *xload-early-class-cells*)))
    11071105    (setf (xload-symbol-value (xload-copy-symbol '*istruct-cells*))
    11081106          *xload-early-istruct-cells*)
     
    14091407(defxloadfaslop $fasl-eval (s)
    14101408  (let* ((expr (%fasl-expr-preserve-epush s)))
    1411     (cond #+notyet
    1412           ((and (xload-target-consp expr)
     1409    (cond ((and (xload-target-consp expr)
    14131410                (eq (xload-lookup-symbol-address (xload-car expr))
    14141411                    'find-class-cell)
Note: See TracChangeset for help on using the changeset viewer.