Given a falist term (falist * *), checks consistence of arguments.
(falist-consistent falist-term) → *
Function:
(defun falist-consistent (falist-term) (declare (xargs :guard t)) (let ((__function__ 'falist-consistent)) (declare (ignorable __function__)) (case-match falist-term (('falist ('quote falist) term) (falist-consistent-aux falist term)) (('falist ''nil ''nil) t) (& nil))))