[slime-cvs] CVS slime

[CVS User jgarcia]

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

Modified Files:
	swank-ecl.lisp 
Log Message:
frame-decode-env did not ignore FLET bindings in bytecodes environments.


--- /project/slime/cvsroot/slime/swank-ecl.lisp	2010/03/19 12:32:30	1.66
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2010/09/28 21:46:02	1.67
@@ -442,7 +442,7 @@
         (blocks '())
         (variables '()))
     (setf frame (si::decode-ihs-env (second frame)))
-    (dolist (record frame)
+    (dolist (record (remove-if-not #'consp frame))
       (let* ((record0 (car record))
 	     (record1 (cdr record)))
 	(cond ((or (symbolp record0) (stringp record0))