Raw constructor for honsed machine-statep structures.
Syntax:
(honsed-machine-state gas-available pc memory active-words stack)
This is identical to machine-state, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by std::defaggregate.
Function:
(defun honsed-machine-state (gas-available pc memory active-words stack) (declare (xargs :guard (and (natp gas-available) (natp pc) (memoryp memory) (stackp stack)))) (mbe :logic (machine-state gas-available pc memory active-words stack) :exec (hons (hons 'gas-available gas-available) (hons (hons 'pc pc) (hons (hons 'memory memory) (hons (hons 'active-words active-words) (hons (hons 'stack stack) nil)))))))