Basic constructor macro for bip32-ext-key-priv structures.
(make-bip32-ext-key-priv [:get <get>])
This is the usual way to construct bip32-ext-key-priv structures. It simply conses together a structure with the specified fields.
This macro generates a new bip32-ext-key-priv structure from scratch. See also change-bip32-ext-key-priv, which can "change" an existing structure, instead.
This is an ordinary
Macro:
(defmacro make-bip32-ext-key-priv (&rest args) (std::make-aggregate 'bip32-ext-key-priv args '((:get)) 'make-bip32-ext-key-priv nil))
Function:
(defun bip32-ext-key-priv (get) (declare (xargs :guard (bip32-ext-priv-key-p get))) (declare (xargs :guard t)) (let ((__function__ 'bip32-ext-key-priv)) (declare (ignorable __function__)) (b* ((get (mbe :logic (bip32-ext-priv-key-fix get) :exec get))) (cons :priv (list get)))))