Raw constructor for honsed vl-zip-opts-p structures.
Syntax:
(honsed-vl-zip-opts help readme name output start-files plusargs search-path include-dirs search-exts defines edition strict mem)
This is identical to vl-zip-opts, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-zip-opts (help readme name output start-files plusargs search-path include-dirs search-exts defines edition strict mem) (declare (xargs :guard (and (booleanp help) (booleanp readme) (stringp name) (stringp output) (string-listp start-files) (string-listp plusargs) (string-listp search-path) (string-listp include-dirs) (string-listp search-exts) (string-listp defines) (vl-edition-p edition) (booleanp strict) (posp mem)))) (mbe :logic (vl-zip-opts help readme name output start-files plusargs search-path include-dirs search-exts defines edition strict mem) :exec (hons :vl-model-opts (hons (hons 'help help) (hons (hons 'readme readme) (hons (hons 'name name) (hons (hons 'output output) (hons (hons 'start-files start-files) (hons (hons 'plusargs plusargs) (hons (hons 'search-path search-path) (hons (hons 'include-dirs include-dirs) (hons (hons 'search-exts search-exts) (hons (hons 'defines defines) (hons (hons 'edition edition) (hons (hons 'strict strict) (hons (hons 'mem mem) nil))))))))))))))))