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