Raw constructor for honsed config-p structures.
Syntax:
(honsed-config cmdline verbose timing mintime remove-temps lrat-check)
This is identical to config, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-config (cmdline verbose timing mintime remove-temps lrat-check) (declare (xargs :guard (and (stringp cmdline) (booleanp verbose) (booleanp timing) (booleanp remove-temps) (booleanp lrat-check)))) (mbe :logic (config cmdline verbose timing mintime remove-temps lrat-check) :exec (hons :satlink-config (hons (hons 'cmdline cmdline) (hons (hons 'verbose verbose) (hons (hons 'timing timing) (hons (hons 'mintime mintime) (hons (hons 'remove-temps remove-temps) (hons (hons 'lrat-check lrat-check) nil)))))))))