Changeset 8433

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:

• branches/working-0711/ccl/level-1/l1-files.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-files.lisp

@@ -1222 +1222 @@
 (defun load-from-stream (stream print &aux (eof-val (list ())) val)
   (with-compilation-unit (:override nil) ; try this for included files
-    (let ((env (new-lexical-environment (new-definition-environment 'eval)))
-          ;; disable *compiler-record-source* in case we're loading a file while comiling another
-          ;; file.
-          (*compiler-record-source* nil))
+    (let ((env (new-lexical-environment (new-definition-environment 'eval))))
       (%rplacd (defenv.type (lexenv.parent-env env)) *outstanding-deferred-warnings*)
       (while (neq eof-val (setq val (read stream nil eof-val)))