Ignore:
Timestamp:
Feb 24, 2009, 2:44:33 AM (11 years ago)
Author:
gz
Message:

Propagate r11762-r11764 to trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/level-1.lisp

    r11373 r11768  
    9595  (l1-load "l1-boot-3")
    9696
    97   ;; Without this, forms from the -e command line parameter would run with
    98   ;; *loading-file-source-file* set to "l1-boot-3".
    99   (setq *loading-file-source-file* nil)
    100   (setq *loading-toplevel-location* nil)
    10197  )
    10298
     
    105101  (%set-toplevel #'toplevel-loop)
    106102  (set-user-environment t)
     103  (setq *loading-file-source-file* nil
     104        *loading-toplevel-location* nil)
    107105  (toplevel))
Note: See TracChangeset for help on using the changeset viewer.