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