(faig-fix-alist x) fixes every value in an alist with faig-fix.
(faig-fix-alist x) → *
Function:
(defun faig-fix-alist (x) (declare (xargs :guard t)) (let ((__function__ 'faig-fix-alist)) (declare (ignorable __function__)) (cond ((atom x) nil) ((atom (car x)) (faig-fix-alist (cdr x))) (t (cons (cons (caar x) (faig-fix (cdar x))) (faig-fix-alist (cdr x)))))))