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

[gz at clozure.com]

Author: gz
Date: Tue Nov 10 08:13:03 2009
New Revision: 13183

Log:
Try harder to minimize performance impact if *save-interactive-source-locat=
ions* is nil

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 08:13:03 2009
@@ -319,7 +319,7 @@
          (eof-value (cons nil nil))
          (eof-count 0)
          (*show-available-restarts* (and *show-restarts-on-break* *break-c=
ondition*))
-	 (*nx-source-note-map* (make-hash-table :test #'eq :shared nil)))
+         (map (make-hash-table :test #'eq :shared nil)))
     (declare (dynamic-extent eof-value))
     (loop
       (restart-case
@@ -335,8 +335,8 @@
                                  :prompt-function prompt-function
                                  :eof-value eof-value
 				 :map (when *save-interactive-source-locations*
-                                        (clrhash *nx-source-note-map*)
-                                        *nx-source-note-map*))
+                                        (clrhash map)
+                                        map))
                 (if (eq form eof-value)
                   (progn
                     (when (> (incf eof-count) *consecutive-eof-limit*)
@@ -348,7 +348,7 @@
                         (stream-clear-input input-stream)
                         (abort-break))
                       (exit-interactive-process *current-process*)))
-                  (progn
+                  (let ((*nx-source-note-map* (and *save-interactive-sourc=
e-locations* map)))
                     (setq eof-count 0)
                     (or (check-toplevel-command form)
                         (let* ((values (toplevel-eval form env)))