3 (with-test (:name
:constantp-conservatively-nil
)
4 (assert (not (constantp '(if))))
5 (assert (not (constantp '(if .
1))))
6 (assert (not (constantp '(if 1))))
7 (assert (not (constantp '(if 1 .
2))))
8 (assert (not (constantp '(if 1 2 .
3))))
9 (assert (not (constantp '(if 1 2 3 4)))))
