[Openmcl-cvs-notifications] r13182 - /trunk/source/level-1/l1-readloop-lds.lisp

[gz at clozure.com]

Author: gz
Date: Tue Nov 10 07:45:43 2009
New Revision: 13182

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

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

Modified: trunk/source/level-1/l1-readloop-lds.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-readloop-lds.lisp (original)
+++ trunk/source/level-1/l1-readloop-lds.lisp Tue Nov 10 07:45:43 2009
@@ -299,6 +299,8 @@
   (let ((fd (stream-device stream :input)))
     (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*)
                        (output-stream *standard-output*)
@@ -327,13 +329,14 @@
             (loop                =

               (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
                                  :output-stream output-stream
                                  :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
                     (when (> (incf eof-count) *consecutive-eof-limit*)