Recognizer for association lists with characters as keys
(Character-alistp x) is true if and only if x is a list of pairs of the form (cons key val) where key is a characterp.
Function: character-alistp
(defun character-alistp (x) (declare (xargs :guard t)) (cond ((atom x) (eq x nil)) (t (and (consp (car x)) (characterp (car (car x))) (character-alistp (cdr x))))))