/[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.12 by heller, Fri Mar 18 22:34:34 2005 UTC revision 1.13 by lgorrie, Fri Apr 1 13:59:48 2005 UTC
# Line 78  Return the form and the source-map." Line 78  Return the form and the source-map."
78    
79  (defun source-path-stream-position (path stream)  (defun source-path-stream-position (path stream)
80    "Search the source-path PATH in STREAM and return its position."    "Search the source-path PATH in STREAM and return its position."
81      (check-source-path path)
82    (destructuring-bind (tlf-number . path) path    (destructuring-bind (tlf-number . path) path
83      (multiple-value-bind (form source-map) (read-source-form tlf-number stream)      (multiple-value-bind (form source-map) (read-source-form tlf-number stream)
84        (source-path-source-position (cons 0 path) form source-map))))        (source-path-source-position (cons 0 path) form source-map))))
85    
86    (defun check-source-path (path)
87      (unless (and (consp path)
88                   (every #'integerp path))
89        (error "The source-path ~S is not valid." path)))
90    
91  (defun source-path-string-position (path string)  (defun source-path-string-position (path string)
92    (with-input-from-string (s string)    (with-input-from-string (s string)
93      (source-path-stream-position path s)))      (source-path-stream-position path s)))

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

  ViewVC Help
Powered by ViewVC 1.1.5