/[slime]/slime/swank-source-path-parser.lisp
ViewVC logotype

Diff of /slime/swank-source-path-parser.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by lgorrie, Fri Apr 1 13:59:48 2005 UTC revision 1.14 by heller, Wed May 11 14:45:20 2005 UTC
# Line 64  Return the object together with a hashta Line 64  Return the object together with a hashta
64  subexpressions of the object to stream positions."  subexpressions of the object to stream positions."
65    (let* ((*source-map* (make-hash-table :test #'eq))    (let* ((*source-map* (make-hash-table :test #'eq))
66           (*readtable* (make-source-recording-readtable *readtable*           (*readtable* (make-source-recording-readtable *readtable*
67                                                         *source-map*)))                                                         *source-map*))
68      (values (read stream) *source-map*)))           (start (file-position stream))
69             (form (read stream))
70             (end (file-position stream)))
71        ;; ensure that at least FORM is in the source-map
72        (unless (gethash form *source-map*)
73          (push (cons start end) (gethash form *source-map*)))
74        (values form *source-map*)))
75    
76  (defun read-source-form (n stream)  (defun read-source-form (n stream)
77    "Read the Nth toplevel form number with source location recording.    "Read the Nth toplevel form number with source location recording.

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5