coerce to a list of characters
Non-characters in the given list are coerced to the character with code 0.
Function:
(defun make-character-list (x) (declare (xargs :guard t)) (cond ((atom x) nil) ((characterp (car x)) (cons (car x) (make-character-list (cdr x)))) (t (cons *null-char* (make-character-list (cdr x))))))