Raw constructor for honsed vl-parsed-ansi-port-p structures.
Syntax:
(honsed-vl-parsed-ansi-port dir head id atts)
This is identical to vl-parsed-ansi-port, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-parsed-ansi-port (dir head id atts) (declare (xargs :guard (and (vl-maybe-direction-p dir) (vl-parsed-ansi-head-p head) (vl-parsed-port-identifier-p id) (vl-atts-p atts)))) (mbe :logic (vl-parsed-ansi-port dir head id atts) :exec (hons :vl-parsed-ansi-port (hons (hons dir head) (hons id atts)))))