Ignore:
Timestamp:
Jul 1, 2009, 1:20:21 AM (10 years ago)
Author:
gz
Message:

Try harder to reset *loading-toplevel-location*

File:
1 edited

Legend:

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

    r11768 r12337  
    9999(require "PREPARE-MCL-ENVIRONMENT")
    100100(progn
    101   (%set-toplevel #'toplevel-loop)
     101  (%set-toplevel #'(lambda ()
     102                     (setq *loading-file-source-file* nil
     103                           *loading-toplevel-location* nil)
     104                     (toplevel-loop)))
    102105  (set-user-environment t)
    103   (setq *loading-file-source-file* nil
    104         *loading-toplevel-location* nil)
    105106  (toplevel))
Note: See TracChangeset for help on using the changeset viewer.