[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-serv8066

Modified Files:
	swank-source-path-parser.lisp 
Log Message:
(source-path-stream-position): Bind *read-suppress* to nil before
calling read-and-record-source-map.

Date: Wed Dec 15 23:37:33 2004
Author: heller

Index: slime/swank-source-path-parser.lisp
diff -u slime/swank-source-path-parser.lisp:1.9 slime/swank-source-path-parser.lisp:1.10
--- slime/swank-source-path-parser.lisp:1.9	Sat Oct 30 12:16:29 2004
+++ slime/swank-source-path-parser.lisp	Wed Dec 15 23:37:32 2004
@@ -38,7 +38,7 @@
 	  (values (multiple-value-list (funcall fn stream char)))
 	  (end (file-position stream)))
       ;;(format t "[~D ~{~A~^, ~} ~D ~D]~%" start values end (char-code char))
-      (unless (null values) 
+      (unless (null values)
 	(push (cons start end) (gethash (car values) source-map)))
       (values-list values))))
 
@@ -72,7 +72,9 @@
   (destructuring-bind (tlf-number . path) path
     (let ((*read-suppress* t))
       (dotimes (i tlf-number) (read stream)))
-    (multiple-value-bind (form source-map) (read-and-record-source-map stream)
+    (multiple-value-bind (form source-map) 
+	(let ((*read-suppress* nil))
+	  (read-and-record-source-map stream))
       (source-path-source-position (cons 0 path) form source-map))))
 
 (defun source-path-string-position (path string)