Recognizer for any node except for the special constant node.
(proper-node-p x) → *
Function:
(defun proper-node-p (x) (declare (xargs :guard t)) (let ((__function__ 'proper-node-p)) (declare (ignorable __function__)) (and (node-p x) (not (eq (stype x) :const)))))