Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit 7fbc81d5d9980b5d06c57b5610903919396c2f94 1 parent 38bddfb
Juan Jose Garcia Ripoll authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  swank-ecl.lisp
View
2  swank-ecl.lisp
@@ -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))
Please sign in to comment.
Something went wrong with that request. Please try again.