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