Basic constructor macro for tree-list-tuple10 structures.
(make-tree-list-tuple10 [:1st <1st>] [:2nd <2nd>] [:3rd <3rd>] [:4th <4th>] [:5th <5th>] [:6th <6th>] [:7th <7th>] [:8th <8th>] [:9th <9th>] [:10th <10th>])
This is the usual way to construct tree-list-tuple10 structures. It simply conses together a structure with the specified fields.
This macro generates a new tree-list-tuple10 structure from scratch. See also change-tree-list-tuple10, which can "change" an existing structure, instead.
This is an ordinary
Macro:
(defmacro abnf::make-tree-list-tuple10 (&rest args) (std::make-aggregate 'abnf::tree-list-tuple10 args '((:1st) (:2nd) (:3rd) (:4th) (:5th) (:6th) (:7th) (:8th) (:9th) (:10th)) 'abnf::make-tree-list-tuple10 nil))
Function:
(defun abnf::tree-list-tuple10 (1st 2nd 3rd 4th 5th 6th 7th 8th 9th 10th) (declare (xargs :guard (and (abnf::tree-listp 1st) (abnf::tree-listp 2nd) (abnf::tree-listp 3rd) (abnf::tree-listp 4th) (abnf::tree-listp 5th) (abnf::tree-listp 6th) (abnf::tree-listp 7th) (abnf::tree-listp 8th) (abnf::tree-listp 9th) (abnf::tree-listp 10th)))) (declare (xargs :guard t)) (let ((__function__ 'abnf::tree-list-tuple10)) (declare (ignorable __function__)) (b* ((1st (mbe :logic (abnf::tree-list-fix 1st) :exec 1st)) (2nd (mbe :logic (abnf::tree-list-fix 2nd) :exec 2nd)) (3rd (mbe :logic (abnf::tree-list-fix 3rd) :exec 3rd)) (4th (mbe :logic (abnf::tree-list-fix 4th) :exec 4th)) (5th (mbe :logic (abnf::tree-list-fix 5th) :exec 5th)) (6th (mbe :logic (abnf::tree-list-fix 6th) :exec 6th)) (7th (mbe :logic (abnf::tree-list-fix 7th) :exec 7th)) (8th (mbe :logic (abnf::tree-list-fix 8th) :exec 8th)) (9th (mbe :logic (abnf::tree-list-fix 9th) :exec 9th)) (10th (mbe :logic (abnf::tree-list-fix 10th) :exec 10th))) (list (cons '1st 1st) (cons '2nd 2nd) (cons '3rd 3rd) (cons '4th 4th) (cons '5th 5th) (cons '6th 6th) (cons '7th 7th) (cons '8th 8th) (cons '9th 9th) (cons '10th 10th)))))