Ignore:
Timestamp:
Apr 5, 2009, 5:42:53 PM (11 years ago)
Author:
gz
Message:

Record source locations when loading source files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r11806 r11901  
    21632163
    21642164)
     2165
     2166(defun nx-source-note (form &aux (source-notes *nx-source-note-map*))
     2167  (when source-notes
     2168    (when (or (consp form) (vectorp form) (pathnamep form))
     2169      (let ((note (gethash form source-notes)))
     2170        (unless (listp note) note)))))
    21652171
    21662172(defun nx-transform (form &optional (environment *nx-lexical-environment*) (source-note-map *nx-source-note-map*))
Note: See TracChangeset for help on using the changeset viewer.