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

[Matthias Koeppe]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(env-internals:confirm-p): Fix last change (hopefully).

Date: Mon Aug 29 23:29:26 2005
Author: mkoeppe

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.76 slime/swank-lispworks.lisp:1.77
--- slime/swank-lispworks.lisp:1.76	Mon Aug 29 21:34:59 2005
+++ slime/swank-lispworks.lisp	Mon Aug 29 23:29:24 2005
@@ -777,5 +777,6 @@
       (defmethod stream:stream-soft-force-output  ((o (eql stream)))
         (force-output o)))))
 
-(defmethod env-internals:confirm-p ((e slime-env) &rest msg-and-args)
-  (apply (swank-sym :y-or-n-p-in-emacs) msg-and-args))
+(defmethod env-internals:confirm-p ((e slime-env) &optional msg &rest args)
+  (apply (swank-sym :y-or-n-p-in-emacs) msg args))
+