Raw constructor for honsed vl-server-opts-p structures.
Syntax:
(honsed-vl-server-opts help readme mem port root public)
This is identical to vl-server-opts, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-server-opts (help readme mem port root public) (declare (xargs :guard (and (booleanp help) (booleanp readme) (posp mem) (posp port) (stringp root) (stringp public)))) (mbe :logic (vl-server-opts help readme mem port root public) :exec (hons :vl-server-opts (hons (hons 'help help) (hons (hons 'readme readme) (hons (hons 'mem mem) (hons (hons 'port port) (hons (hons 'root root) (hons (hons 'public public) nil)))))))))