[slime-cvs] CVS update: slime/swank-source-path-parser.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv23166

Modified Files:
	swank-source-path-parser.lisp 
Log Message:
(make-source-recording-readtable): Ignore non-ascii chars.
Date: Fri Mar 18 23:34:34 2005
Author: heller

Index: slime/swank-source-path-parser.lisp
diff -u slime/swank-source-path-parser.lisp:1.11 slime/swank-source-path-parser.lisp:1.12
--- slime/swank-source-path-parser.lisp:1.11	Thu Dec 16 22:13:49 2004
+++ slime/swank-source-path-parser.lisp	Fri Mar 18 23:34:34 2005
@@ -47,7 +47,7 @@
 The source locations are stored in SOURCE-MAP."
   (let* ((tab (copy-readtable readtable))
 	 (*readtable* tab))
-    (dotimes (code char-code-limit)
+    (dotimes (code 128)
       (let ((char (code-char code)))
 	(multiple-value-bind (fn term) (get-macro-character char tab)
 	  (when fn
@@ -70,7 +70,7 @@
 (defun read-source-form (n stream)
   "Read the Nth toplevel form number with source location recording.
 Return the form and the source-map."
-  (let ((*read-suppress* t)) 
+  (let ((*read-suppress* t))
     (dotimes (i n)
       (read stream)))
   (let ((*read-suppress* nil))