/[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.237 by trittweiler, Sat Mar 7 19:08:03 2009 UTC revision 1.238 by trittweiler, Fri Apr 3 21:13:00 2009 UTC
# Line 485  compiler state." Line 485  compiler state."
485    
486  (defimplementation call-with-compilation-hooks (function)  (defimplementation call-with-compilation-hooks (function)
487    (declare (type function function))    (declare (type function function))
488    (handler-bind ((sb-c:fatal-compiler-error #'handle-file-compiler-termination)    (handler-bind
489                   (sb-c:compiler-error  #'handle-notification-condition)        ;; N.B. Even though these handlers are called HANDLE-FOO they
490                   (sb-ext:compiler-note #'handle-notification-condition)        ;; actually decline, i.e. the signalling of the original
491                   (warning              #'handle-notification-condition))        ;; condition continues upward.
492          ((sb-c:fatal-compiler-error #'handle-file-compiler-termination)
493           (sb-c:compiler-error  #'handle-notification-condition)
494           (sb-ext:compiler-note #'handle-notification-condition)
495           (warning              #'handle-notification-condition))
496      (funcall function)))      (funcall function)))
497    
498  (defun handle-file-compiler-termination (condition)  (defun handle-file-compiler-termination (condition)
# Line 512  compiler state." Line 516  compiler state."
516                        (source-cache-get input-file                        (source-cache-get input-file
517                                          (file-write-date input-file))                                          (file-write-date input-file))
518                        (not (load output-file))))))                        (not (load output-file))))))
519      (sb-c:fatal-compiler-error () nil)))      ;; N.B. This comes through despite of WITH-COMPILATION-HOOKS.
520        (sb-c:fatal-compiler-error () (values nil nil t))))
521    
522  ;;;; compile-string  ;;;; compile-string
523    

Legend:
Removed from v.1.237  
changed lines
  Added in v.1.238

  ViewVC Help
Powered by ViewVC 1.1.5