[slime-cvs] CVS update: slime/swank-cmucl.lisp

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(form-number-stream-position): Use  read-source-form.
Date: Thu Dec 16 22:14:44 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.134 slime/swank-cmucl.lisp:1.135
--- slime/swank-cmucl.lisp:1.134	Wed Dec 15 23:40:42 2004
+++ slime/swank-cmucl.lisp	Thu Dec 16 22:14:42 2004
@@ -788,15 +788,13 @@
   "Return the starting character position of a form in STREAM.
 TLF-NUMBER is the top-level-form number.
 FORM-NUMBER is an index into a source-path table for the TLF."
-  (let ((*read-suppress* t))
-    (dotimes (i tlf-number) (read stream))
-    (multiple-value-bind (tlf position-map) (read-and-record-source-map stream)
-      (let* ((path-table (di:form-number-translations tlf 0))
-             (source-path
-              (if (<= (length path-table) form-number) ; source out of sync?
-                  (list 0)              ; should probably signal a condition
-                  (reverse (cdr (aref path-table form-number))))))
-        (source-path-source-position source-path tlf position-map)))))
+  (multiple-value-bind (tlf position-map) (read-source-form tlf-number stream)
+    (let* ((path-table (di:form-number-translations tlf 0))
+           (source-path
+            (if (<= (length path-table) form-number) ; source out of sync?
+                (list 0)                ; should probably signal a condition
+                (reverse (cdr (aref path-table form-number))))))
+      (source-path-source-position source-path tlf position-map))))
   
 (defun code-location-string-offset (code-location string)
   "Return the byte offset of CODE-LOCATION in STRING.