Configurable warnings about missing variables in AIG evaluation.
Ordinarily aig-eval treats any variables that are not bound
in the environment as having value
(aig-env-lookup-missing-action val) allows you to control whether these
warnings are printed, and also whether break$ should be called. The
valid
Function:
(defun aig-env-lookup-missing-quiet (name) (declare (xargs :guard t) (ignore name)) nil)
Function:
(defun aig-env-lookup-missing-complain (name) (declare (xargs :guard t)) (and *aig-env-lookup-warn-missing-binding* (cw "WARNING: Missing variable binding ~x0 in AIG-ENV-LOOKUP; ~ assigning T~%" name)))
Function:
(defun aig-env-lookup-missing-break (name) (declare (xargs :guard t)) (and *aig-env-lookup-warn-missing-binding* (prog2$ (cw "WARNING: Missing variable binding ~x0 in ~x1; assigning ~ T. To avoid this break, run ~x2, where action is NIL or ~ :WARN.~%" name 'aig-env-lookup '(aig-env-lookup-missing-action action)) (break$))))