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