		Search-engine friendly clone of the ACL2 documentation.

Pinst-wide

Make-pinst-wide

Basic constructor macro for pinst-wide structures.

Syntax

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

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

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

Definition

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

Macro: make-pinst-wide

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

Function: pinst-wide

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