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