Changeset 13183 for trunk/source/level-1


Ignore:
Timestamp:
Nov 10, 2009, 1:13:03 PM (10 years ago)
Author:
gz
Message:

Try harder to minimize performance impact if *save-interactive-source-locations* is nil

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop-lds.lisp

    r13182 r13183  
    320320         (eof-count 0)
    321321         (*show-available-restarts* (and *show-restarts-on-break* *break-condition*))
    322          (*nx-source-note-map* (make-hash-table :test #'eq :shared nil)))
     322         (map (make-hash-table :test #'eq :shared nil)))
    323323    (declare (dynamic-extent eof-value))
    324324    (loop
     
    336336                                 :eof-value eof-value
    337337                                 :map (when *save-interactive-source-locations*
    338                                         (clrhash *nx-source-note-map*)
    339                                         *nx-source-note-map*))
     338                                        (clrhash map)
     339                                        map))
    340340                (if (eq form eof-value)
    341341                  (progn
     
    349349                        (abort-break))
    350350                      (exit-interactive-process *current-process*)))
    351                   (progn
     351                  (let ((*nx-source-note-map* (and *save-interactive-source-locations* map)))
    352352                    (setq eof-count 0)
    353353                    (or (check-toplevel-command form)
Note: See TracChangeset for help on using the changeset viewer.