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