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