Lift symbol-name to lists
This function returns the list of symbol-names of a given list of symbols.
Function:
(defun symbol-name-lst (lst) (declare (xargs :guard (symbol-listp lst))) (cond ((endp lst) nil) (t (cons (symbol-name (car lst)) (symbol-name-lst (cdr lst))))))