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

[Matthias Koeppe]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(env-internals:confirm-p): Use new function
y-or-n-p-in-emacs rather than eval-in-emacs.

Date: Mon Aug 29 21:34:59 2005
Author: mkoeppe

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.75 slime/swank-lispworks.lisp:1.76
--- slime/swank-lispworks.lisp:1.75	Wed Aug 10 17:46:43 2005
+++ slime/swank-lispworks.lisp	Mon Aug 29 21:34:59 2005
@@ -777,7 +777,5 @@
       (defmethod stream:stream-soft-force-output  ((o (eql stream)))
         (force-output o)))))
 
-(defmethod env-internals:confirm-p ((e slime-env) &optional msg &rest args)
-  (let ((prompt (cond (msg (apply #'format nil msg args))
-                      (t ""))))
-    (funcall (swank-sym :eval-in-emacs) `(y-or-n-p  ,prompt))))
+(defmethod env-internals:confirm-p ((e slime-env) &rest msg-and-args)
+  (apply (swank-sym :y-or-n-p-in-emacs) msg-and-args))