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

[Helmut Eller]

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

Modified Files:
	swank-backend.lisp 
Log Message:
(with-compilation-hooks): Replace () with (&rest _) to make CLISP happy.
Date: Fri Jan  2 03:21:08 2004
Author: heller

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.10 slime/swank-backend.lisp:1.11
--- slime/swank-backend.lisp:1.10	Tue Dec 16 05:28:42 2003
+++ slime/swank-backend.lisp	Fri Jan  2 03:21:08 2004
@@ -5,7 +5,7 @@
 ;;; Copyright (C) 2003, James Bielman  <jamesjb at jamesjb.com>
 ;;; Released into the public domain.
 ;;;
-;;;   $Id: swank-backend.lisp,v 1.10 2003/12/16 10:28:42 lgorrie Exp $
+;;;   $Id: swank-backend.lisp,v 1.11 2004/01/02 08:21:08 heller Exp $
 ;;;
 
 ;; This is a skeletal implementation of the Slime internals interface.
@@ -134,7 +134,7 @@
 (defgeneric call-with-compilation-hooks (func)
   (:documentation
    "Call FUNC with hooks to trigger SLDB on compiler errors."))
-(defmacro with-compilation-hooks (() &body body)
+(defmacro with-compilation-hooks ((&rest _) &body body)
   `(call-with-compilation-hooks (lambda () (progn , at body))))
 
 (defgeneric compile-string-for-emacs (string &key buffer position)