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

Diff of /slime/swank-corman.lisp

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

revision 1.27 by heller, Sat Apr 7 10:23:38 2012 UTC revision 1.28 by sboukarev, Sat Aug 4 23:48:19 2012 UTC
# Line 347  Line 347 
347  ;; FIXME  ;; FIXME
348  (defimplementation call-with-compilation-hooks (FN)  (defimplementation call-with-compilation-hooks (FN)
349    (handler-bind ((error (lambda (c)    (handler-bind ((error (lambda (c)
350                            (signal (make-condition                            (signal 'compiler-condition
351                                     'compiler-condition                                    :original-condition c
352                                     :original-condition c                                    :severity :warning
353                                     :severity :warning                                    :message (format nil "~A" c)
354                                     :message (format nil "~A" c)                                    :location
355                                     :location                                    (cond (*buffer-name*
356                                     (cond (*buffer-name*                                           (make-location
357                                            (make-location                                            (list :buffer *buffer-name*)
358                                             (list :buffer *buffer-name*)                                            (list :offset *buffer-position* 0)))
359                                             (list :offset *buffer-position* 0)))                                          (*compile-filename*
360                                           (*compile-filename*                                           (make-location
361                                            (make-location                                            (list :file *compile-filename*)
362                                             (list :file *compile-filename*)                                            (list :position 1)))
363                                             (list :position 1)))                                          (t
364                                           (t                                           (list :error "No location")))))))
                                           (list :error "No location"))))))))  
365      (funcall fn)))      (funcall fn)))
366    
367  (defimplementation swank-compile-file (input-file output-file  (defimplementation swank-compile-file (input-file output-file

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

  ViewVC Help
Powered by ViewVC 1.1.5