Changeset 13290
- Timestamp:
- 05/24/11 12:24:46 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r13275 r13290 537 537 (with-open-file (in input-file :direction :input) 538 538 (let* ((*compile-file-pathname* (pathname in)) 539 (*compile-file-truename* (truename in)) 539 (*compile-file-truename* (make-pathname :defaults (truename in) 540 :version nil)) 540 541 (*source* *compile-file-truename*) 541 542 (*class-number* 0)
Note: See TracChangeset
for help on using the changeset viewer.