Raw constructor for honsed vl-json-opts-p structures.
Syntax:
(honsed-vl-json-opts help readme outfile search-path separate edition strict mem debug)
This is identical to vl-json-opts, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-json-opts (help readme outfile search-path separate edition strict mem debug) (declare (xargs :guard (and (booleanp help) (booleanp readme) (stringp outfile) (string-listp search-path) (booleanp separate) (vl-edition-p edition) (booleanp strict) (posp mem) (booleanp debug)))) (mbe :logic (vl-json-opts help readme outfile search-path separate edition strict mem debug) :exec (hons :vl-json-opts (hons (hons 'help help) (hons (hons 'readme readme) (hons (hons 'outfile outfile) (hons (hons 'search-path search-path) (hons (hons 'separate separate) (hons (hons 'edition edition) (hons (hons 'strict strict) (hons (hons 'mem mem) (hons (hons 'debug debug) nil))))))))))))