|
|
|---|
|
|
|
|---|
Raw constructor for honsed block-headerp structures.
Syntax:
(honsed-block-header parent-hash ommers-hash
beneficiary state-root transactions-root
receipts-root logs-bloom
difficulty number gas-limit gas-used
timestamp extra-data mix-hash nonce)This is identical to block-header, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by std::defaggregate.
Function:
(defun honsed-block-header (parent-hash ommers-hash beneficiary state-root transactions-root receipts-root logs-bloom difficulty number gas-limit gas-used timestamp extra-data mix-hash nonce) (declare (xargs :guard (and (addressp beneficiary) (n256p state-root) (n256p transactions-root) (n256p receipts-root) (natp number) (byte-arrayp extra-data) (n256p mix-hash) (n64p nonce)))) (mbe :logic (block-header parent-hash ommers-hash beneficiary state-root transactions-root receipts-root logs-bloom difficulty number gas-limit gas-used timestamp extra-data mix-hash nonce) :exec (hons (hons 'parent-hash parent-hash) (hons (hons 'ommers-hash ommers-hash) (hons (hons 'beneficiary beneficiary) (hons (hons 'state-root state-root) (hons (hons 'transactions-root transactions-root) (hons (hons 'receipts-root receipts-root) (hons (hons 'logs-bloom logs-bloom) (hons (hons 'difficulty difficulty) (hons (hons 'number number) (hons (hons 'gas-limit gas-limit) (hons (hons 'gas-used gas-used) (hons (hons 'timestamp timestamp) (hons (hons 'extra-data extra-data) (hons (hons 'mix-hash mix-hash) (hons (hons 'nonce nonce) nil)))))))))))))))))