Raw constructor for honsed vl-timetoken-p structures.
Syntax:
(honsed-vl-timetoken etext quantity units)
This is identical to vl-timetoken, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-timetoken (etext quantity units) (declare (xargs :guard (and (and (vl-echarlist-p etext) (consp etext) (true-listp etext)) (stringp quantity) (vl-timeunit-p units)))) (mbe :logic (vl-timetoken etext quantity units) :exec (hons :vl-timetoken (hons etext (hons quantity units)))))