[slime-cvs] CVS update: slime/swank-lispworks.lisp

[Martin Simmons]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv8797

Modified Files:
	swank-lispworks.lisp 
Log Message:
Implement call-with-compilation-hooks.

Date: Wed Sep  8 18:08:31 2004
Author: msimmons

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.55 slime/swank-lispworks.lisp:1.56
--- slime/swank-lispworks.lisp:1.55	Fri Sep  3 23:10:13 2004
+++ slime/swank-lispworks.lisp	Wed Sep  8 18:08:26 2004
@@ -313,6 +313,7 @@
     (loop for (dspec location) in locations
           collect (list dspec (make-dspec-location dspec location)))))
 
+
 ;;; Compilation 
 
 (defmacro with-swank-compilation-unit ((location &rest options) &body body)
@@ -326,6 +327,10 @@
 (defimplementation swank-compile-file (filename load-p)
   (with-swank-compilation-unit (filename)
     (compile-file filename :load load-p)))
+
+(defimplementation call-with-compilation-hooks (function)
+  ;; #'pray instead of #'handler-bind
+  (funcall function))
 
 (defun map-error-database (database fn)
   (loop for (filename . defs) in database do