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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
Fixed braino in previous change.

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

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.32 slime/swank.lisp:1.33
--- slime/swank.lisp:1.32	Thu Oct 16 16:05:21 2003
+++ slime/swank.lisp	Thu Oct 16 17:03:57 2003
@@ -222,8 +222,8 @@
      (* (- (get-internal-real-time) before)
         (/ 1000000 internal-time-units-per-second)))))
 
-(defmacro with-trapping-compiler-notes (() &body body)
-  `(call-trapping-compiler-notes (lambda () , at body)))
+(defmacro with-trapping-compilation-notes (() &body body)
+  `(call-trapping-compilation-notes (lambda () , at body)))
 
 (defun call-with-compilation-hooks (fn)
   (multiple-value-bind (result usecs)