(faig-partial-eval x env) evaluates
(faig-partial-eval x env) → *
See aig-partial-eval; the
Function:
(defun faig-partial-eval (x env) (declare (xargs :guard t)) (let ((__function__ 'faig-partial-eval)) (declare (ignorable __function__)) (if (atom x) '(t . t) (cons (aig-partial-eval (car x) env) (aig-partial-eval (cdr x) env)))))