Raw constructor for honsed vl-psconfig-p structures.
Syntax:
(honsed-vl-psconfig autowrap-col autowrap-ind htmlp tabsize package base)
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) (declare (xargs :guard (and (natp autowrap-col) (natp autowrap-ind) (booleanp htmlp) (posp tabsize) (symbolp package) (print-base-p base)))) (mbe :logic (vl-psconfig autowrap-col autowrap-ind htmlp tabsize package base) :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) nil)))))))))