[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-ecl.lisp 
Log Message:
* swank-ecl.lisp (frame-var-value): Return the value without name.


--- /project/slime/cvsroot/slime/ChangeLog	2013/01/09 14:29:50	1.2385
+++ /project/slime/cvsroot/slime/ChangeLog	2013/01/10 11:46:42	1.2386
@@ -1,3 +1,7 @@
+2013-01-10  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-ecl.lisp (frame-var-value): Return the value without name.
+
 2013-01-09  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (frame-locals-for-emacs): Print variable names in
--- /project/slime/cvsroot/slime/swank-ecl.lisp	2013/01/07 10:12:09	1.80
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2013/01/10 11:46:42	1.81
@@ -499,14 +499,17 @@
   (third (elt *backtrace* frame-number)))
 
 (defimplementation frame-locals (frame-number)
-  (loop for (name . value) in (nth-value 2 (frame-decode-env 
+  (loop for (name . value) in (nth-value 2 (frame-decode-env
                                             (elt *backtrace* frame-number)))
-        with i = 0
-        collect (list :name name :id (prog1 i (incf i)) :value value)))
+        collect (list :name name :id 0 :value value)))
 
-(defimplementation frame-var-value (frame-number var-id)
-  (elt (nth-value 2 (frame-decode-env (elt *backtrace* frame-number)))
-       var-id))
+(defimplementation frame-var-value (frame-number var-number)
+  (destructuring-bind (name . value)
+      (elt
+       (nth-value 2 (frame-decode-env (elt *backtrace* frame-number)))
+       var-number)
+    (declare (ignore name))
+    value))
 
 (defimplementation disassemble-frame (frame-number)
   (let ((fun (frame-function (elt *backtrace* frame-number))))