Changeset 13182


Ignore:
Timestamp:
Nov 10, 2009, 12:45:43 PM (10 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

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

    r13124 r13182  
    300300    (and fd (eof-transient-p fd))))
    301301
     302(defvar *save-interactive-source-locations* t)
     303
    302304;;; This is the part common to toplevel loop and inner break loops.
    303305(defun read-loop (&key (input-stream *standard-input*)
     
    328330              (setq *in-read-loop* nil
    329331                    *break-level* break-level)
    330               (clrhash *nx-source-note-map*)
    331332              (multiple-value-bind (form env print-result)
    332333                  (toplevel-read :input-stream input-stream
     
    334335                                 :prompt-function prompt-function
    335336                                 :eof-value eof-value
    336                                  :map *nx-source-note-map*)
     337                                 :map (when *save-interactive-source-locations*
     338                                        (clrhash *nx-source-note-map*)
     339                                        *nx-source-note-map*))
    337340                (if (eq form eof-value)
    338341                  (progn
Note: See TracChangeset for help on using the changeset viewer.