Changeset 11762


Ignore:
Timestamp:
Feb 23, 2009, 9:22:51 PM (11 years ago)
Author:
gz
Message:

Don't assume :compile-file-original-truename arg is a filename, for future extensions

File:
1 edited

Legend:

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

    r11682 r11762  
    473473           (*fasl-source-file* filename)
    474474           (*fcomp-toplevel-forms* '())
    475            (*loading-file-source-file* (namestring (or *compile-file-original-truename* orig-file)))
     475           (*loading-file-source-file* (or *compile-file-original-truename* (namestring orig-file)))
    476476           (*fcomp-file-source-note* (%make-source-note :file-name *loading-file-source-file*))
    477477           (*fcomp-source-note-map* (and (or *fasl-save-source-locations* *compile-code-coverage*)
Note: See TracChangeset for help on using the changeset viewer.