Basic constructor macro for assertion structures.
(make-assertion [:asg <asg>] [:constr <constr>])
This is the usual way to construct assertion structures. It simply conses together a structure with the specified fields.
This macro generates a new assertion structure from scratch. See also change-assertion, which can "change" an existing structure, instead.
This is an ordinary
Macro:
(defmacro make-assertion (&rest args) (std::make-aggregate 'assertion args '((:asg) (:constr)) 'make-assertion nil))
Function:
(defun assertion (asg constr) (declare (xargs :guard (and (assignmentp asg) (constraintp constr)))) (declare (xargs :guard t)) (let ((__function__ 'assertion)) (declare (ignorable __function__)) (b* ((asg (mbe :logic (assignment-fix asg) :exec asg)) (constr (mbe :logic (constraint-fix constr) :exec constr))) (list (cons 'asg asg) (cons 'constr constr)))))