Ignore:
Timestamp:
Mar 7, 2008, 6:20:54 AM (12 years ago)
Author:
gz
Message:

Hook up the source location stuff again

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx.lisp

    r8672 r8681  
    196196   (let* ((*load-time-eval-token* load-time-eval-token)
    197197          (*nx-source-note-map* source-notes)
     198          (*nx1-source-note-map* (and *fasl-save-source-locations* *nx-source-note-map*))
    198199          (*nx-current-code-note* (and source-notes
    199200                                       *compile-code-coverage*
    200201                                       (nx-ensure-code-note definition nil function-note)))
    201           (*definition-source-note* (and *form-source-note-map* (gethash definition *form-source-note-map*)))
     202          (*definition-source-note* (and *fasl-save-source-locations*
     203                                         (or function-note
     204                                             (and *form-source-note-map* (gethash definition *form-source-note-map*)))))
    202205          (env (new-lexical-environment env)))
    203206     (setf (lexenv.variables env) 'barrier)
Note: See TracChangeset for help on using the changeset viewer.