		Search-engine friendly clone of the ACL2 documentation.

Closure-output

Make-closure-output

Basic constructor macro for closure-output structures.

Syntax

(make-closure-output [:reg <reg>] 
                     [:type <type>])

This is the usual way to construct closure-output structures. It simply conses together a structure with the specified fields.

This macro generates a new closure-output structure from scratch. See also change-closure-output, which can "change" an existing structure, instead.

Definition

This is an ordinary make- macro introduced by fty::defprod.

Macro: make-closure-output

(defmacro make-closure-output (&rest args)
  (std::make-aggregate 'closure-output
                       args '((:reg) (:type))
                       'make-closure-output
                       nil))

Function: closure-output

(defun closure-output (reg type)
  (declare (xargs :guard (and (regaccessp reg)
                              (register-typep type))))
  (declare (xargs :guard t))
  (let ((__function__ 'closure-output))
    (declare (ignorable __function__))
    (b* ((reg (mbe :logic (regaccess-fix reg)
                   :exec reg))
         (type (mbe :logic (register-type-fix type)
                    :exec type)))
      (cons :closure-output (list (cons 'reg reg)
                                  (cons 'type type))))))