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