Changeset 14689 for trunk/source/level-1/l1-reader.lisp

Timestamp:

Mar 22, 2011, 1:39:57 PM (10 years ago)

Author:

gz

Message:

Remove stray char

File:

• trunk/source/level-1/l1-reader.lisp (modified) (1 diff)

trunk/source/level-1/l1-reader.lisp

@@ -3054 +3054 @@
         (setq text (concatenate 'string (subseq text 0 120) "..."))))
     (if file
-      (format stream "*~s:~s-~s ~s" file
+      (format stream "~s:~s-~s ~s" file
               (source-note-start-pos sn) (source-note-end-pos sn)
               text)