[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-allegro.lisp swank.lisp 
Log Message:
* swank-allegro.lisp (with-redirected-y-or-n-p): Fix modern-mode
issues.
Patch by Andrew Myers.


--- /project/slime/cvsroot/slime/ChangeLog	2011/08/09 10:27:25	1.2209
+++ /project/slime/cvsroot/slime/ChangeLog	2011/08/17 15:40:47	1.2210
@@ -1,3 +1,9 @@
+2011-08-17  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-allegro.lisp (with-redirected-y-or-n-p): Fix modern-mode
+	issues.
+	Patch by Andrew Myers.
+
 2011-08-09  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	* swank-sbcl.lisp (make-socket-io-stream): Use :SERVE-EVENTS T when
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2011/02/24 06:38:34	1.143
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2011/08/17 15:40:47	1.144
@@ -642,17 +642,14 @@
   ;; As the CL:Y-OR-N-P question is (for some reason) not directly
   ;; sent to the Slime user, the function CL:Y-OR-N-P is temporarily
   ;; overruled.
-  `(let* ((pkg       (find-package "common-lisp"))
+  `(let* ((pkg       (find-package :common-lisp))
           (saved-pdl (excl::package-definition-lock pkg))
           (saved-ynp (symbol-function 'cl:y-or-n-p)))
-     
      (setf (excl::package-definition-lock pkg) nil
-           (symbol-function 'cl:y-or-n-p)   (symbol-function
-                                             (find-symbol "y-or-n-p-in-emacs"
-                                                          "swank")))
+           (symbol-function 'cl:y-or-n-p)
+           (symbol-function (read-from-string "swank:y-or-n-p-in-emacs")))
      (unwind-protect
-         (progn , at body)
-       
+          (progn , at body)
        (setf (symbol-function 'cl:y-or-n-p)      saved-ynp
              (excl::package-definition-lock pkg) saved-pdl))))
 
--- /project/slime/cvsroot/slime/swank.lisp	2011/08/08 12:31:01	1.751
+++ /project/slime/cvsroot/slime/swank.lisp	2011/08/17 15:40:47	1.752
@@ -65,7 +65,8 @@
            #:set-default-directory
            #:quit-lisp
            #:eval-for-emacs
-           #:eval-in-emacs))
+           #:eval-in-emacs
+           #:y-or-n-p-in-emacs))
 
 (in-package :swank)