Add another small test on this
This commit is contained in:
parent
d3a019b3dd
commit
f268403d49
|
@ -623,4 +623,5 @@
|
||||||
(defn test-quoted-hoistable []
|
(defn test-quoted-hoistable []
|
||||||
"NATIVE: test quoted hoistable"
|
"NATIVE: test quoted hoistable"
|
||||||
(setf f (quote (if true true true)))
|
(setf f (quote (if true true true)))
|
||||||
(assert (= (car f) "if")))
|
(assert (= (car f) "if"))
|
||||||
|
(assert (= (cdr f) (quote (true true true)))))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user