Changeset 13182

Timestamp:

Nov 10, 2009, 4:45:43 AM (15 years ago)

Author:

gz

Message:

Add *save-interactive-source-locations* to control source recording in the repl

File:

• trunk/source/level-1/l1-readloop-lds.lisp (modified) (3 diffs)

trunk/source/level-1/l1-readloop-lds.lisp

@@ -300 +300 @@
     (and fd (eof-transient-p fd))))
 
+(defvar *save-interactive-source-locations* t)
+
 ;;; This is the part common to toplevel loop and inner break loops.
 (defun read-loop (&key (input-stream *standard-input*)
@@ -328 +330 @@
               (setq *in-read-loop* nil
                     *break-level* break-level)
-              (clrhash *nx-source-note-map*)
               (multiple-value-bind (form env print-result)
                   (toplevel-read :input-stream input-stream
@@ -334 +335 @@
                                  :prompt-function prompt-function
                                  :eof-value eof-value
-                                 :map *nx-source-note-map*)
+                                 :map (when *save-interactive-source-locations*
+                                        (clrhash *nx-source-note-map*)
+                                        *nx-source-note-map*))
                 (if (eq form eof-value)
                   (progn