diff --git a/ansi-tests/compile.lsp b/ansi-tests/compile.lsp index 7de55a446ba8043b63f342e213b36abbbdc6e555..5902b3c558dbe8b46de694a3d452848bf18efef5 100644 --- a/ansi-tests/compile.lsp +++ b/ansi-tests/compile.lsp @@ -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)