Changeset 14689 for trunk/source/level-1/l1-reader.lisp
- Timestamp:
- Mar 22, 2011, 1:39:57 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-reader.lisp
r14362 r14689 3054 3054 (setq text (concatenate 'string (subseq text 0 120) "...")))) 3055 3055 (if file 3056 (format stream " *~s:~s-~s ~s" file3056 (format stream "~s:~s-~s ~s" file 3057 3057 (source-note-start-pos sn) (source-note-end-pos sn) 3058 3058 text)
Note: See TracChangeset
for help on using the changeset viewer.