Raw constructor for honsed vl-wireinfo-p structures.
Syntax:
(honsed-vl-wireinfo usedp setp)
This is identical to vl-wireinfo, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-wireinfo (usedp setp) (declare (xargs :guard (and (booleanp usedp) (booleanp setp)))) (mbe :logic (vl-wireinfo usedp setp) :exec (hons :vl-wireinfo (hons (hons 'usedp usedp) (hons (hons 'setp setp) nil)))))