diff options
| -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))))) |