/[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.21 by heller, Thu Jan 8 06:45:19 2009 UTC revision 1.22 by nsiivola, Tue May 19 10:51:38 2009 UTC
# Line 80  subexpressions of the object to stream p Line 80  subexpressions of the object to stream p
80    (let* ((source-map (make-hash-table :test #'eq))    (let* ((source-map (make-hash-table :test #'eq))
81           (*readtable* (make-source-recording-readtable *readtable* source-map))           (*readtable* (make-source-recording-readtable *readtable* source-map))
82           (start (file-position stream))           (start (file-position stream))
83           (form (read stream))           (form (ignore-errors (read stream)))
84           (end (file-position stream)))           (end (file-position stream)))
85      ;; ensure that at least FORM is in the source-map      ;; ensure that at least FORM is in the source-map
86      (unless (gethash form source-map)      (unless (gethash form source-map)

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

  ViewVC Help
Powered by ViewVC 1.1.5