summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 11:06:42 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 11:06:42 +0100
commitb7d24eda63e11ba4ab725f53ca42ee35ecf4643c (patch)
tree2fbaaa84a226fc34977087e9b1a6d46743c65f9f
parent6dd765da7c0791f823927747e41c179e4f216b21 (diff)
Fix a test that assumed (CAR '(:FOO :BAR)) not to be CONSTANTP.
darcs-hash:f8ba983e113d533c07e6469fe8882aaab7f4ffd9
-rw-r--r--Lisp/tests.lisp2
1 files changed, 1 insertions, 1 deletions
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)))))