Raw constructor for honsed vl-psconfig-p structures.
Syntax:
(honsed-vl-psconfig autowrap-col autowrap-ind htmlp tabsize package base eviscconfig)
This is identical to vl-psconfig, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-psconfig (autowrap-col autowrap-ind htmlp tabsize package base eviscconfig) (declare (xargs :guard (and (natp autowrap-col) (natp autowrap-ind) (booleanp htmlp) (posp tabsize) (symbolp package) (print-base-p base) (str::eviscconfig-p eviscconfig)))) (mbe :logic (vl-psconfig autowrap-col autowrap-ind htmlp tabsize package base eviscconfig) :exec (hons :vl-psconfig (hons (hons 'autowrap-col autowrap-col) (hons (hons 'autowrap-ind autowrap-ind) (hons (hons 'htmlp htmlp) (hons (hons 'tabsize tabsize) (hons (hons 'package package) (hons (hons 'base base) (hons (hons 'eviscconfig eviscconfig) nil))))))))))