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

Diff of /slime/swank-cmucl.lisp

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

revision 1.4 by heller, Thu Oct 16 11:10:48 2003 UTC revision 1.5 by lgorrie, Thu Oct 16 20:05:21 2003 UTC
# Line 211  compiler state." Line 211  compiler state."
211           (reverse           (reverse
212            (c::compiler-error-context-original-source-path context)))))            (c::compiler-error-context-original-source-path context)))))
213    
214  (defmacro with-trapping-compilation-notes (() &body body)  (defmacro call-trapping-compilation-notes (fn)
215    `(handler-bind ((c::compiler-error #'handle-notification-condition)    (handler-bind ((c::compiler-error #'handle-notification-condition)
216                    (c::style-warning #'handle-notification-condition)                   (c::style-warning #'handle-notification-condition)
217                    (c::warning #'handle-notification-condition))                   (c::warning #'handle-notification-condition))
218      ,@body))      (funcall fn)))
219    
220  (defslimefun swank-compile-file (filename load)  (defslimefun swank-compile-file (filename load)
221    (call-with-compilation-hooks    (call-with-compilation-hooks

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5