Raw constructor for honsed execution-environmentp structures.
Syntax:
(honsed-execution-environment owner-address sender-address gas-price input-data causer-account value bytecode block-header depth permission)
This is identical to execution-environment, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by std::defaggregate.
Function:
(defun honsed-execution-environment (owner-address sender-address gas-price input-data causer-account value bytecode block-header depth permission) (declare (xargs :guard (and (addressp owner-address) (addressp sender-address) (natp gas-price) (byte-arrayp input-data) (addressp causer-account) (n256p value) (byte-arrayp bytecode) (block-headerp block-header) (natp depth)))) (mbe :logic (execution-environment owner-address sender-address gas-price input-data causer-account value bytecode block-header depth permission) :exec (hons (hons 'owner-address owner-address) (hons (hons 'sender-address sender-address) (hons (hons 'gas-price gas-price) (hons (hons 'input-data input-data) (hons (hons 'causer-account causer-account) (hons (hons 'value value) (hons (hons 'bytecode bytecode) (hons (hons 'block-header block-header) (hons (hons 'depth depth) (hons (hons 'permission permission) nil))))))))))))