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