Raw constructor for honsed ecutnames-p structures.
Syntax:
(honsed-ecutnames original value value-reg decision-wire decision-reg mux)
This is identical to ecutnames, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by std::defaggregate.
Function:
(defun honsed-ecutnames (original value value-reg decision-wire decision-reg mux) (declare (xargs :guard (and (symbolp original) (symbolp value) (symbolp value-reg) (symbolp decision-wire) (symbolp decision-reg) (symbolp mux)))) (mbe :logic (ecutnames original value value-reg decision-wire decision-reg mux) :exec (hons (hons 'original original) (hons (hons 'value value) (hons (hons 'value-reg value-reg) (hons (hons 'decision-wire decision-wire) (hons (hons 'decision-reg decision-reg) (hons (hons 'mux mux) nil))))))))