[slime-devel] [PATCH] Fix support for start-acl-profiler in ACL 8.2 64 bit.

[Andrew Myers]

I'm a dummy, updated patch here:

---
 swank-allegro.lisp |    5 ++---
 swank.lisp         |    3 ++-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/swank-allegro.lisp b/swank-allegro.lisp
index 352859a..b1dee27 100644
--- a/swank-allegro.lisp
+++ b/swank-allegro.lisp
@@ -642,14 +642,13 @@
   ;; 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")))
+                                             (read-from-string
"swank:y-or-n-p-in-emacs")))
      (unwind-protect
          (progn , at body)

diff --git a/swank.lisp b/swank.lisp
index 024903c..e3a5a6d 100644
--- a/swank.lisp
+++ b/swank.lisp
@@ -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)

--