Changeset 8433


Ignore:
Timestamp:
Feb 6, 2008, 8:27:06 PM (13 years ago)
Author:
wws
Message:

Compiling a system from a loaded file no longer disables source-location info.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-files.lisp

    r8421 r8433  
    12221222(defun load-from-stream (stream print &aux (eof-val (list ())) val)
    12231223  (with-compilation-unit (:override nil) ; try this for included files
    1224     (let ((env (new-lexical-environment (new-definition-environment 'eval)))
    1225           ;; disable *compiler-record-source* in case we're loading a file while comiling another
    1226           ;; file.
    1227           (*compiler-record-source* nil))
     1224    (let ((env (new-lexical-environment (new-definition-environment 'eval))))
    12281225      (%rplacd (defenv.type (lexenv.parent-env env)) *outstanding-deferred-warnings*)
    12291226      (while (neq eof-val (setq val (read stream nil eof-val)))
Note: See TracChangeset for help on using the changeset viewer.