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/lib/nfcomp.lisp

    r8646 r8681  
    409409           (*fcomp-toplevel-forms* '())
    410410           (*loading-file-source-file* (namestring orig-file)) ; why orig-file???
    411            (*fcomp-source-note-map* (and (or *save-source-locations* *record-pc-mapping* *compile-code-coverage*)
     411           (*fcomp-source-note-map* (and (or *fasl-save-source-locations* *compile-code-coverage*)
    412412                                         (make-hash-table :test #'eq :shared nil)))
     413           (*form-source-note-map* (and *fasl-save-source-locations* *fcomp-source-note-map*))
    413414           (*fcomp-source-being-compiled* nil)
    414415           (eofval (cons nil nil))
     
    443444                                           :file-name (or *compile-file-original-truename* *loading-file-source-file*)
    444445                                           :start-offset (or *compile-file-original-buffer-offset* 0)
    445                                            :map (or *fcomp-source-note-map* (and *fasl-save-source-locations* t)))))))
     446                                           :map *fcomp-source-note-map*)))))
    446447            (when (eq eofval form)
    447448              (require-type *fcomp-source-being-compiled* 'null)
Note: See TracChangeset for help on using the changeset viewer.