diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 11:06:42 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 11:06:42 +0100 |
| commit | b7d24eda63e11ba4ab725f53ca42ee35ecf4643c (patch) | |
| tree | 2fbaaa84a226fc34977087e9b1a6d46743c65f9f | |
| parent | 6dd765da7c0791f823927747e41c179e4f216b21 (diff) | |
Fix a test that assumed (CAR '(:FOO :BAR)) not to be CONSTANTP.
darcs-hash:f8ba983e113d533c07e6469fe8882aaab7f4ffd9
| -rw-r--r-- | Lisp/tests.lisp | 2 |
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))))) |