The definition of consp on formal terms.
Note that FORMAL-CONSP is a `formal' predicate returning
Function:
(defun formal-consp (term) (declare (xargs :guard (pseudo-termp term))) (case-match term (('quote x) (cons 'quote (cons (consp x) 'nil))) (('cons x y) (declare (ignore x y)) *t*) (& *nil*)))