Ignore:
Timestamp:
Oct 31, 2008, 1:52:57 PM (13 years ago)
Author:
gz
Message:

Backport compiler source location changes from trunk, mostly reorg and move file-compiler stuff out of the compiler, but also a fix to record a source note for inner functions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/nfcomp.lisp

    r11164 r11279  
    402402      (getf *fcomp-print-handler-plist* 'include) '(nil . t))
    403403
     404
     405(defvar *form-source-note-map* nil
     406  "Hash table used when compiling a top level definition to map lists of source code to their
     407  corresponding source notes.")
     408
     409(defun record-form-source-equivalent (original new)
     410  (when (and *form-source-note-map*
     411             *fasl-save-source-locations*
     412             (setq original (gethash original *form-source-note-map*))
     413             (not (gethash new *form-source-note-map*)))
     414    (setf (gethash new *form-source-note-map*) original)))
    404415
    405416(defun fcomp-file (filename orig-file env)  ; orig-file is back-translated
Note: See TracChangeset for help on using the changeset viewer.