/[slime]/slime/swank-sbcl.lisp
ViewVC logotype

Diff of /slime/swank-sbcl.lisp

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

revision 1.43 by dbarlow, Thu Dec 11 17:08:55 2003 UTC revision 1.44 by dbarlow, Fri Dec 12 03:22:36 2003 UTC
# Line 188  information." Line 188  information."
188             :message (brief-compiler-message-for-emacs condition context)             :message (brief-compiler-message-for-emacs condition context)
189             :location (compiler-note-location context))))             :location (compiler-note-location context))))
190    
191    
192    
193  (defun compiler-note-location (context)  (defun compiler-note-location (context)
194    (cond (context    (cond (context
195           (resolve-note-location           (resolve-note-location
# Line 207  information." Line 209  information."
209     `(:file ,(namestring (truename f)))     `(:file ,(namestring (truename f)))
210     `(:position ,(1+ (source-path-file-position path f)))))     `(:position ,(1+ (source-path-file-position path f)))))
211    
 ;;; FIXME this one's broken: no source-path-string-position  
212  (defmethod resolve-note-location ((b string) (f (eql :stream)) pos path source)  (defmethod resolve-note-location ((b string) (f (eql :stream)) pos path source)
213    (make-location    (make-location
214     `(:buffer ,b)     `(:buffer ,b)
# Line 505  stack." Line 506  stack."
506           (path (code-location-source-path code-location)))           (path (code-location-source-path code-location)))
507      (source-path-file-position path filename)))      (source-path-file-position path filename)))
508    
509  (defun source-path-file-position (path filename)  ;;; source-path-file-position and friends are in swank-source-path-parser
   (let ((*read-suppress* t))  
     (with-open-file (file filename)  
       (dolist (n path)  
         (dotimes (i n)  
           (read file))  
         (read-delimited-list #\( file))  
       (file-position file))))  
510    
511  (defun debug-source-info-from-emacs-buffer-p (debug-source)  (defun debug-source-info-from-emacs-buffer-p (debug-source)
512    (let ((info (sb-c::debug-source-info debug-source)))    (let ((info (sb-c::debug-source-info debug-source)))

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

  ViewVC Help
Powered by ViewVC 1.1.5