From b7d24eda63e11ba4ab725f53ca42ee35ecf4643c Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 4 Mar 2008 11:06:42 +0100 Subject: Fix a test that assumed (CAR '(:FOO :BAR)) not to be CONSTANTP. darcs-hash:f8ba983e113d533c07e6469fe8882aaab7f4ffd9 --- Lisp/tests.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index cd87823..ee45582 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -392,7 +392,7 @@ 'load-time-value)) (is (not (equal (car (compiler-macroexpand-1 `(selector (:foo :bar)))) 'load-time-value))) - (is (not (equal (car (compiler-macroexpand-1 `(selector (car '(:foo :bar))))) + (is (not (equal (car (compiler-macroexpand-1 `(selector (car (:foo :bar))))) 'load-time-value))) (is (not (equal (car (compiler-macroexpand-1 `(selector `(,x ,y)))) 'load-time-value))))) -- cgit v1.2.3