Changeset 10416


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

Process *EARLY-CLASS-CELLS*, set by xloader.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/nfasload.lisp

    r10362 r10416  
    2020
    2121(require "FASLENV" "ccl:xdump;faslenv")
    22 
    2322
    2423
     
    314313  (multiple-value-bind (str len new-p) (%fasl-nvreadstr s)
    315314    (let* ((p (%find-pkg str len)))
    316       (%epushval s (or p (%kernel-restart $XNOPKG (if new-p str (%fasl-copystr str len))))))))
     315      (%epushval s (or p  (%kernel-restart $XNOPKG (if new-p str (%fasl-copystr str len))))))))
    317316
    318317(defun %fasl-vlistX (s dotp)
     
    712711
    713712(deffaslop $fasl-provide (s)
    714   (provide (%fasl-expr s)))   
     713  (provide (%fasl-expr s)))
    715714
    716715(deffaslop $fasl-istruct-cell (s)
     
    10751074      (declare (special *xload-cold-load-functions*
    10761075                        *xload-cold-load-documentation*
    1077                         *xload-startup-file*))
     1076                        *xload-startup-file*
     1077                        *early-class-cells*))
    10781078      (%set-tcr-toplevel-function (%current-tcr) nil) ; should get reset by l1-boot.
    10791079      (setq %system-locks% (%cons-population nil))
     
    10831083      (dolist (f (prog1 *xload-cold-load-functions* (setq *xload-cold-load-functions* nil)))
    10841084        (funcall f))
     1085      (dolist (pair (prog1 *early-class-cells* (setq *early-class-cells* nil)))
     1086        (setf (gethash (car pair) %find-classes%) (cdr pair)))
    10851087      (dolist (p %all-packages%)
    10861088        (%resize-htab (pkg.itab p))
Note: See TracChangeset for help on using the changeset viewer.