[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv26740

Modified Files:
	ChangeLog swank-cmucl.lisp 
Log Message:
* swank-cmucl.lisp (frame-locals): Remove non-valid variables.

--- /project/slime/cvsroot/slime/ChangeLog	2009/01/08 06:45:19	1.1644
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/08 06:45:28	1.1645
@@ -1,8 +1,12 @@
 2009-01-07  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-cmucl.lisp (frame-locals): Remove non-valid variables.
+
+2009-01-07  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-source-path-parser.lisp (make-source-recorder)
 	(source-path-source-position): Adjust the file-position before
-	entering it the table.
+	entering it in the table.
 
 2009-01-07  Helmut Eller  <heller at common-lisp.net>
 
--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2009/01/04 20:53:30	1.206
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2009/01/08 06:45:29	1.207
@@ -1553,10 +1553,11 @@
   (let* ((frame (nth-frame index))
 	 (loc (di:frame-code-location frame))
 	 (vars (frame-debug-vars frame)))
-    (loop for v across vars collect
-          (list :name (di:debug-variable-symbol v)
-                :id (di:debug-variable-id v)
-                :value (debug-var-value v frame loc)))))
+    (loop for v across vars 
+          when (eq (di:debug-variable-validity v loc) :valid)
+          collect (list :name (di:debug-variable-symbol v)
+                        :id (di:debug-variable-id v)
+                        :value (di:debug-variable-valid-value v frame)))))
 
 (defimplementation frame-var-value (frame var)
   (let* ((frame (nth-frame frame))