Modifying constructor for tree-list-tuple7 structures.
(change-tree-list-tuple7 x
[:1st <1st>]
[:2nd <2nd>]
[:3rd <3rd>]
[:4th <4th>]
[:5th <5th>]
[:6th <6th>]
[:7th <7th>])
This is an often useful alternative to make-tree-list-tuple7.
We construct a new tree-list-tuple7 structure that is a copy of
This is an ordinary
Macro:
(defmacro change-tree-list-tuple7 (x &rest args) (std::change-aggregate 'tree-list-tuple7 x args '((:1st . tree-list-tuple7->1st) (:2nd . tree-list-tuple7->2nd) (:3rd . tree-list-tuple7->3rd) (:4th . tree-list-tuple7->4th) (:5th . tree-list-tuple7->5th) (:6th . tree-list-tuple7->6th) (:7th . tree-list-tuple7->7th)) 'change-tree-list-tuple7 'nil))