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