[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
swan-sbcl.lisp(frame-locals): `frame-debug-vars' can return NIL,
so check before using it as a vector.
Patch by Nathan Bird.


--- /project/slime/cvsroot/slime/ChangeLog	2009/11/30 14:47:49	1.1925
+++ /project/slime/cvsroot/slime/ChangeLog	2009/12/02 17:34:37	1.1926
@@ -1,3 +1,9 @@
+2009-12-02  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-sbcl.lisp (frame-locals): `frame-debug-vars' can return NIL,
+	so check before using it as a vector.
+	Patch by Nathan Bird.
+
 2009-11-30  Helmut Eller  <heller at common-lisp.net>
 
 	Add a slime-editing-map as suggested by Attila Lendvai.  The main
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/11/21 21:32:57	1.255
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/12/02 17:34:37	1.256
@@ -1142,10 +1142,11 @@
   (let* ((frame (nth-frame index))
 	 (loc (sb-di:frame-code-location frame))
 	 (vars (frame-debug-vars frame)))
-    (loop for v across vars collect
-          (list :name (sb-di:debug-var-symbol v)
-                :id (sb-di:debug-var-id v)
-                :value (debug-var-value v frame loc)))))
+    (when vars
+      (loop for v across vars collect
+            (list :name (sb-di:debug-var-symbol v)
+                  :id (sb-di:debug-var-id v)
+                  :value (debug-var-value v frame loc))))))
 
 (defimplementation frame-var-value (frame var)
   (let* ((frame (nth-frame frame))