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

[Vladimir Sedach]

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

Modified Files:
	swank-backend.lisp 
Log Message:
Fixed () arg in with-compilation-hooks.

Date: Mon Jan 12 00:06:22 2004
Author: vsedach

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.13 slime/swank-backend.lisp:1.14
--- slime/swank-backend.lisp:1.13	Sun Jan 11 19:51:32 2004
+++ slime/swank-backend.lisp	Mon Jan 12 00:06:22 2004
@@ -140,7 +140,8 @@
   (:documentation
    "Call FUNC with hooks to trigger SLDB on compiler errors."))
 
-(defmacro with-compilation-hooks (() &body body)
+(defmacro with-compilation-hooks ((&rest ignore) &body body)
+  (declare (ignore ignore))
   `(call-with-compilation-hooks (lambda () (progn , at body))))
 
 (defgeneric compile-string-for-emacs (string &key buffer position)