[slime-cvs] CVS update: slime/swank-cmucl.lisp
Helmut Eller
heller at common-lisp.net
Thu Dec 16 21:14:45 UTC 2004
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.
More information about the slime-cvs
mailing list