Permalink
Browse files

frame-decode-env did not ignore FLET bindings in bytecodes environments.

  • Loading branch information...
1 parent 38bddfb commit 7fbc81d5d9980b5d06c57b5610903919396c2f94 Juan Jose Garcia Ripoll committed Sep 28, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 swank-ecl.lisp
View
@@ -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))

0 comments on commit 7fbc81d

Please sign in to comment.