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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(slime-lisp-modes): New variable to make C-c C-k customizable and
usable in scheme-mode.  
(slime-compile-file): Use it.

Date: Wed Dec 15 23:30:57 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.270 slime/swank.lisp:1.271
--- slime/swank.lisp:1.270	Thu Dec  9 21:43:20 2004
+++ slime/swank.lisp	Wed Dec 15 23:30:56 2004
@@ -1562,12 +1562,11 @@
 (defslimefun frame-locals-for-emacs (index)
   "Return a property list ((&key NAME ID VALUE) ...) describing
 the local variables in the frame INDEX."
-  (let* ((*package* (or (frame-package index) *package*)))
-    (mapcar (lambda (frame-locals)
-              (destructuring-bind (&key name id value) frame-locals
-                (list :name (prin1-to-string name) :id id
-                      :value (to-string value))))
-            (frame-locals index))))
+  (mapcar (lambda (frame-locals)
+            (destructuring-bind (&key name id value) frame-locals
+              (list :name (prin1-to-string name) :id id
+                    :value (to-string value))))
+          (frame-locals index)))
 
 (defslimefun frame-catch-tags-for-emacs (frame-index)
   (mapcar #'to-string (frame-catch-tags frame-index)))