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

Diff of /slime/swank-clisp.lisp

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

revision 1.99 by heller, Sat Dec 3 12:03:26 2011 UTC revision 1.100 by sboukarev, Sun Feb 12 15:38:06 2012 UTC
# Line 636  Execute BODY with NAME's function slot s Line 636  Execute BODY with NAME's function slot s
636    (dynamic-flet ((sys::c-warn *orig-c-warn*))    (dynamic-flet ((sys::c-warn *orig-c-warn*))
637      (signal-compiler-warning cstring args :style-warning *orig-c-style-warn*)))      (signal-compiler-warning cstring args :style-warning *orig-c-style-warn*)))
638    
639  (defun c-error (cstring &rest args)  (defun c-error (&rest args)
640    (signal-compiler-warning cstring args :error *orig-c-error*))    (signal (make-condition 'compiler-condition
641                              :severity :error
642                              :message (apply #'format nil
643                                              (if (= (length args) 3)
644                                                  (cdr args)
645                                                  args))
646                              :location (compiler-note-location)))
647      (apply *orig-c-error* args))
648    
649  (defimplementation call-with-compilation-hooks (function)  (defimplementation call-with-compilation-hooks (function)
650    (handler-bind ((warning #'handle-notification-condition))    (handler-bind ((warning #'handle-notification-condition))

Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100

  ViewVC Help
Powered by ViewVC 1.1.5