Cause an error if a function or lambda expression is
a non-guard-verified function or
a lambda expression that calls some non-guard-verified function,
except possibly in the
(ensure-function/lambda-guard-verified-exec-fns fn/lambda description error-erp error-val ctx state) → (mv erp val state)
This error-checking function is useful
after calling ensure-function/macro/lambda
(which returns the pseudo-termfnp)
to handle functions and lambda expressions uniformly.
The
Function:
(defun ensure-function/lambda-guard-verified-exec-fns (fn/lambda description error-erp error-val ctx state) (declare (xargs :stobjs (state))) (declare (xargs :guard (and (pseudo-termfnp fn/lambda) (msgp description)))) (let ((__function__ 'ensure-function/lambda-guard-verified-exec-fns)) (declare (ignorable __function__)) (if (symbolp fn/lambda) (ensure-function-is-guard-verified$ fn/lambda description error-erp error-val) (ensure-lambda-guard-verified-exec-fns$ fn/lambda description error-erp error-val))))