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