Ignore:
Timestamp:
Oct 29, 2009, 5:43:04 PM (10 years ago)
Author:
gz
Message:

Recording source text in read-loop (useful for disassembly). It's now possible have a source note with null filename, fix a couple places to account for that.

File:
1 edited

Legend:

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

    r13067 r13124  
    317317         (eof-value (cons nil nil))
    318318         (eof-count 0)
    319          (*show-available-restarts* (and *show-restarts-on-break* *break-condition*)))
     319         (*show-available-restarts* (and *show-restarts-on-break* *break-condition*))
     320         (*nx-source-note-map* (make-hash-table :test #'eq :shared nil)))
    320321    (declare (dynamic-extent eof-value))
    321322    (loop
     
    327328              (setq *in-read-loop* nil
    328329                    *break-level* break-level)
     330              (clrhash *nx-source-note-map*)
    329331              (multiple-value-bind (form env print-result)
    330332                  (toplevel-read :input-stream input-stream
    331333                                 :output-stream output-stream
    332334                                 :prompt-function prompt-function
    333                                  :eof-value eof-value)
     335                                 :eof-value eof-value
     336                                 :map *nx-source-note-map*)
    334337                (if (eq form eof-value)
    335338                  (progn
     
    392395                           (output-stream *standard-output*)
    393396                           (prompt-function #'print-listener-prompt)
    394                            (eof-value *eof-value*))
     397                           (eof-value *eof-value*)
     398                           (map nil))
    395399  (force-output output-stream)
    396400  (funcall prompt-function output-stream)
    397   (read-toplevel-form input-stream :eof-value eof-value))
     401  (read-toplevel-form input-stream :eof-value eof-value :map map))
    398402
    399403(defvar *always-eval-user-defvars* nil)
Note: See TracChangeset for help on using the changeset viewer.