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