Raw constructor for honsed vl-tf-parsed-var-id-p structures.
Syntax:
(honsed-vl-tf-parsed-var-id name udims)
This is identical to vl-tf-parsed-var-id, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-tf-parsed-var-id (name udims) (declare (xargs :guard (and (vl-idtoken-p name) (vl-packeddimensionlist-p udims)))) (mbe :logic (vl-tf-parsed-var-id name udims) :exec (hons :vl-tf-parsed-var-id (hons (hons 'name name) (hons (hons 'udims udims) nil)))))