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

Diff of /slime/swank-lispworks.lisp

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

revision 1.55 by heller, Fri Sep 3 21:10:13 2004 UTC revision 1.56 by msimmons, Wed Sep 8 16:08:26 2004 UTC
# Line 313  Return NIL if the symbol is unbound." Line 313  Return NIL if the symbol is unbound."
313      (loop for (dspec location) in locations      (loop for (dspec location) in locations
314            collect (list dspec (make-dspec-location dspec location)))))            collect (list dspec (make-dspec-location dspec location)))))
315    
316    
317  ;;; Compilation  ;;; Compilation
318    
319  (defmacro with-swank-compilation-unit ((location &rest options) &body body)  (defmacro with-swank-compilation-unit ((location &rest options) &body body)
# Line 327  Return NIL if the symbol is unbound." Line 328  Return NIL if the symbol is unbound."
328    (with-swank-compilation-unit (filename)    (with-swank-compilation-unit (filename)
329      (compile-file filename :load load-p)))      (compile-file filename :load load-p)))
330    
331    (defimplementation call-with-compilation-hooks (function)
332      ;; #'pray instead of #'handler-bind
333      (funcall function))
334    
335  (defun map-error-database (database fn)  (defun map-error-database (database fn)
336    (loop for (filename . defs) in database do    (loop for (filename . defs) in database do
337          (loop for (dspec . conditions) in defs do          (loop for (dspec . conditions) in defs do

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

  ViewVC Help
Powered by ViewVC 1.1.5