		Search-engine friendly clone of the ACL2 documentation.

Pinst-indent

Make-pinst-indent

Basic constructor macro for pinst-indent structures.

Syntax

(make-pinst-indent [:amount <amount>] 
                   [:width <width>] 
                   [:first <first>] 
                   [:rest <rest>])

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

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

Definition

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

Macro: make-pinst-indent

(defmacro make-pinst-indent (&rest args)
  (std::make-aggregate 'pinst-indent
                       args
                       '((:amount) (:width) (:first) (:rest))
                       'make-pinst-indent
                       nil))

Function: pinst-indent

(defun pinst-indent (amount width first rest)
  (declare (xargs :guard (and (natp amount)
                              (posp width)
                              (pinst-p first)
                              (pinstlist-p rest))))
  (declare (xargs :guard t))
  (let ((acl2::__function__ 'pinst-indent))
    (declare (ignorable acl2::__function__))
    (b* ((amount (mbe :logic (nfix amount) :exec amount))
         (width (mbe :logic (acl2::pos-fix width)
                     :exec width))
         (first (mbe :logic (pinst-fix first)
                     :exec first))
         (rest (mbe :logic (pinstlist-fix rest)
                    :exec rest)))
      (cons :indent (std::prod-cons (std::prod-cons amount width)
                                    (std::prod-cons first rest))))))