/[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.106 by heller, Tue Oct 26 00:35:36 2004 UTC revision 1.107 by heller, Wed Oct 27 10:57:43 2004 UTC
# Line 17  Line 17 
17    (require 'sb-posix)    (require 'sb-posix)
18    )    )
19    
20  (declaim (optimize (debug 3)))  
21  (in-package :swank-backend)  (in-package :swank-backend)
22    (declaim (optimize (debug 2)))
23    
24  (import  (import
25   '(sb-gray:fundamental-character-output-stream   '(sb-gray:fundamental-character-output-stream
# Line 187  information." Line 188  information."
188                         (warning              :warning)                         (warning              :warning)
189                         (error                :error))                         (error                :error))
190             :short-message (brief-compiler-message-for-emacs condition)             :short-message (brief-compiler-message-for-emacs condition)
191             :references             :references (condition-references (real-condition condition))
            (let ((c (if (typep condition 'sb-int:encapsulated-condition)  
                         (sb-int:encapsulated-condition condition)  
                         condition)))  
              (when (typep c 'sb-int:reference-condition)  
                (sb-int:reference-condition-references c)))  
            (when (typep condition 'sb-int:reference-condition)  
              (sb-int:reference-condition-references condition))  
192             :message (long-compiler-message-for-emacs condition context)             :message (long-compiler-message-for-emacs condition context)
193             :location (compiler-note-location context))))             :location (compiler-note-location context))))
194    
195    (defun real-condition (condition)
196      "Return the encapsulated condition or CONDITION itself."
197      (typecase condition
198        (sb-int:encapsulated-condition (sb-int:encapsulated-condition condition))
199        (t condition)))
200    
201  (defun compiler-note-location (context)  (defun compiler-note-location (context)
202    (cond (context    (cond (context
203           (resolve-note-location           (resolve-note-location

Legend:
Removed from v.1.106  
changed lines
  Added in v.1.107

  ViewVC Help
Powered by ViewVC 1.1.5