		Search-engine friendly clone of the ACL2 documentation.

Pinst-flat

Make-pinst-flat

Basic constructor macro for pinst-flat structures.

Syntax

(make-pinst-flat [:guts <guts>])

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

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

Definition

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

Macro: make-pinst-flat

(defmacro make-pinst-flat (&rest args)
  (std::make-aggregate 'pinst-flat
                       args '((:guts))
                       'make-pinst-flat
                       nil))

Function: pinst-flat

(defun pinst-flat (guts)
  (declare (xargs :guard (pflat-p guts)))
  (declare (xargs :guard t))
  (let ((acl2::__function__ 'pinst-flat))
    (declare (ignorable acl2::__function__))
    (b* ((guts (mbe :logic (pflat-fix guts)
                    :exec guts)))
      (cons :flat guts))))