Ignore:
Timestamp:
Apr 8, 2007, 4:44:11 AM (13 years ago)
Author:
gb
Message:

Deal with pkg.intern-hook.

File:
1 edited

Legend:

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

    r5643 r6212  
    844844                                            nil ;shadowed
    845845                                            nil ;lock
     846                                            nil ;intern-hook
    846847                                            )))
    847848                        packages)))
     
    873874                (xload-save-list (mapcar #'clone->addr (pkg.used-by p)))
    874875                (xload-%svref v pkg.shadowed)
    875                 (xload-save-list (mapcar #'xload-copy-symbol (pkg.shadowed p)))))))))
     876                (xload-save-list (mapcar #'xload-copy-symbol (pkg.shadowed p)))
     877                (xload-%svref v pkg.intern-hook)
     878                *xload-target-nil*
     879                ))))))
    876880
    877881
Note: See TracChangeset for help on using the changeset viewer.