		Search-engine friendly clone of the ACL2 documentation.

Vl-paramdecl

Make-vl-paramdecl

Basic constructor macro for vl-paramdecl structures.

Syntax

(make-vl-paramdecl [:name <name>] 
                   [:type <type>] 
                   [:loc <loc>] 
                   [:localp <localp>] 
                   [:overriddenp <overriddenp>] 
                   [:atts <atts>])

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

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

Definition

This is an ordinary make- macro introduced by defprod.

Macro: make-vl-paramdecl

(defmacro make-vl-paramdecl (&rest args)
  (std::make-aggregate 'vl-paramdecl
                       args
                       '((:name)
                         (:type)
                         (:loc)
                         (:localp)
                         (:overriddenp)
                         (:atts))
                       'make-vl-paramdecl
                       nil))

Function: vl-paramdecl

(defun vl-paramdecl (name type loc localp overriddenp atts)
 (declare (xargs :guard (and (stringp name)
                             (vl-paramtype-p type)
                             (vl-location-p loc)
                             (booleanp localp)
                             (booleanp overriddenp)
                             (vl-atts-p atts))))
 (declare (xargs :guard t))
 (let ((__function__ 'vl-paramdecl))
  (declare (ignorable __function__))
  (b* ((name (mbe :logic (str-fix name) :exec name))
       (type (mbe :logic (vl-paramtype-fix type)
                  :exec type))
       (loc (mbe :logic (vl-location-fix loc)
                 :exec loc))
       (localp (mbe :logic (acl2::bool-fix localp)
                    :exec localp))
       (overriddenp (mbe :logic (acl2::bool-fix overriddenp)
                         :exec overriddenp))
       (atts (mbe :logic (vl-atts-fix atts)
                  :exec atts)))
   (cons
        :vl-paramdecl
        (std::prod-cons
             (std::prod-cons name (std::prod-cons type loc))
             (std::prod-cons localp
                             (std::prod-cons overriddenp atts)))))))