Commit 14081fb2 authored by pfdietz's avatar pfdietz
Browse files

Added more tests exhibiting the object identity bug in COMPILE.

parent ef65575c
......@@ -78,14 +78,12 @@
(funcall (compile nil `(lambda () (eq ',x ',x)))))
t)
(deftest compile.7
(let ((x (copy-seq "abc")))
(eq x (funcall (compile nil `(lambda () ,x)))))
t)
(deftest compile.8
(let ((x (list 'a 'b)))
(eq x (funcall (compile nil `(lambda () ',x)))))
t)
Supports Markdown
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