1(in-package :cl-user)
2
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)))))
10