Recognizer for a true list of symbols
The predicate symbol-listp tests whether its argument is a true list of symbols.
Function: symbol-listp
(defun symbol-listp (lst) (declare (xargs :guard t)) (cond ((atom lst) (eq lst nil)) (t (and (symbolp (car lst)) (symbol-listp (cdr lst))))))