Raw constructor for honsed vl-useless-params-p structures.
Syntax:
(honsed-vl-useless-params names positions)
This is identical to vl-useless-params, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-vl-useless-params (names positions) (declare (xargs :guard (and (string-listp names) (integer-listp positions)))) (mbe :logic (vl-useless-params names positions) :exec (hons :vl-useless-params (hons (hons 'names names) (hons (hons 'positions positions) nil)))))