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

[Luke Gorrie]

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

Modified Files:
	swank-openmcl.lisp swank-cmucl.lisp 
Log Message:
Fixed braino in previous change: call-trapping-compilation-notes was
left as a macro.

Date: Thu Oct 16 17:03:37 2003
Author: lgorrie

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.6 slime/swank-openmcl.lisp:1.7
--- slime/swank-openmcl.lisp:1.6	Thu Oct 16 16:05:21 2003
+++ slime/swank-openmcl.lisp	Thu Oct 16 17:03:37 2003
@@ -13,7 +13,7 @@
 ;;; The LLGPL is also available online at
 ;;; http://opensource.franz.com/preamble.html
 ;;;
-;;;   $Id: swank-openmcl.lisp,v 1.6 2003/10/16 20:05:21 lgorrie Exp $
+;;;   $Id: swank-openmcl.lisp,v 1.7 2003/10/16 21:03:37 lgorrie Exp $
 ;;;
 
 ;;;
@@ -163,7 +163,7 @@
               :buffer-offset 0)
         *compiler-notes*))
 
-(defmacro call-trapping-compilation-notes (fn)
+(defun call-trapping-compilation-notes (fn)
   (handler-bind ((ccl::compiler-warning #'handle-compiler-warning))
     (funcall fn)))
 


Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.5 slime/swank-cmucl.lisp:1.6
--- slime/swank-cmucl.lisp:1.5	Thu Oct 16 16:05:21 2003
+++ slime/swank-cmucl.lisp	Thu Oct 16 17:03:37 2003
@@ -211,7 +211,7 @@
 	 (reverse
 	  (c::compiler-error-context-original-source-path context)))))
 
-(defmacro call-trapping-compilation-notes (fn)
+(defun call-trapping-compilation-notes (fn)
   (handler-bind ((c::compiler-error #'handle-notification-condition)
                  (c::style-warning #'handle-notification-condition)
                  (c::warning #'handle-notification-condition))