(faig-partial-eval-alist x env) partially evaluates an FAIG alist (an alist binding keys to FAIGs).
(faig-partial-eval-alist x env) → *
The alist
Function:
(defun faig-partial-eval-alist (x env) (declare (xargs :guard t)) (let ((__function__ 'faig-partial-eval-alist)) (declare (ignorable __function__)) (b* (((when (atom x)) nil) (rest (faig-partial-eval-alist (cdr x) env)) ((when (atom (car x))) rest)) (cons (cons (caar x) (faig-partial-eval (cdar x) env)) rest))))