Raw constructor for honsed demo2-opts-p structures.
Syntax:
(honsed-demo2-opts help version fail)
This is identical to demo2-opts, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by std::defaggregate.
Function:
(defun honsed-demo2-opts (help version fail) (declare (xargs :guard (and (booleanp help) (booleanp version) (booleanp fail)))) (mbe :logic (demo2-opts help version fail) :exec (hons :demo2 (hons (hons 'help help) (hons (hons 'version version) (hons (hons 'fail fail) nil))))))