Commit d40994e9 authored by pfdietz's avatar pfdietz

Fixed some problems where we might try to compile something in an illegal lexical environment.

parent 2745d59b
......@@ -27,11 +27,12 @@
t nil)
(deftest disassemble.4
(disassemble-it #'(lambda (x y) (cons y z)))
(disassemble-it (eval '(function (lambda (x y) (cons y z)))))
t nil)
(deftest disassemble.5
(disassemble-it (let ((x 0)) #'(lambda () (incf x))))
(disassemble-it
(funcall (compile nil '(lambda () (let ((x 0)) #'(lambda () (incf x)))))))
t nil)
(deftest disassemble.6
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment