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

Diff of /slime/swank-ccl.lisp

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

revision 1.27 by heller, Mon Mar 26 15:09:57 2012 UTC revision 1.28 by sboukarev, Sat Aug 4 23:48:19 2012 UTC
# Line 158  Line 158 
158    
159  (defun handle-compiler-warning (condition)  (defun handle-compiler-warning (condition)
160    "Resignal a ccl:compiler-warning as swank-backend:compiler-warning."    "Resignal a ccl:compiler-warning as swank-backend:compiler-warning."
161    (signal (make-condition    (signal 'compiler-condition
162             'compiler-condition            :original-condition condition
163             :original-condition condition            :message (compiler-warning-short-message condition)
164             :message (compiler-warning-short-message condition)            :source-context nil
165             :source-context nil            :severity (compiler-warning-severity condition)
166             :severity (compiler-warning-severity condition)            :location (source-note-to-source-location
167             :location (source-note-to-source-location                       (ccl:compiler-warning-source-note condition)
168                        (ccl:compiler-warning-source-note condition)                       (lambda () "Unknown source")
169                        (lambda () "Unknown source")                       (ccl:compiler-warning-function-name condition))))
                       (ccl:compiler-warning-function-name condition)))))  
170    
171  (defgeneric compiler-warning-severity (condition))  (defgeneric compiler-warning-severity (condition))
172  (defmethod compiler-warning-severity ((c ccl:compiler-warning)) :warning)  (defmethod compiler-warning-severity ((c ccl:compiler-warning)) :warning)

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

  ViewVC Help
Powered by ViewVC 1.1.5