Changeset 14623


Ignore:
Timestamp:
Feb 1, 2011, 6:32:07 PM (9 years ago)
Author:
rme
Message:

Remove yet more left-over debugging cruft.

File:
1 edited

Legend:

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

    r14619 r14623  
    10841084    (xload-set '%all-packages% (xload-save-list (mapcar #'cdr *xload-aliased-package-addresses*)))
    10851085    (xload-set '%unbound-function% (%xload-unbound-function%))
    1086     (xload-set '*gc-event-status-bits*
    1087                (xload-integer 0 (logior (ash 1 $gc-integrity-check-bit)
    1088                                         (ash 1 $egc-verbose-bit)
    1089                                         (ash 1 $gc-verbose-bit))))
     1086    (xload-set '*gc-event-status-bits* (xload-integer 0 #|(ash 1 $gc-integrity-check-bit)|#))
     1087
    10901088    (xload-set '%toplevel-catch% (xload-copy-symbol :toplevel))
    10911089    (if *xload-target-use-code-vectors*
Note: See TracChangeset for help on using the changeset viewer.