		Search-engine friendly clone of the ACL2 documentation.

Vl-define

Make-vl-define

Basic constructor macro for vl-define structures.

Syntax

(make-vl-define [:formals <formals>] 
                [:body <body>] 
                [:loc <loc>] 
                [:stickyp <stickyp>])

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

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

Definition

This is an ordinary make- macro introduced by defprod.

Macro: make-vl-define

(defmacro make-vl-define (&rest args)
  (std::make-aggregate 'vl-define
                       args
                       '((:formals) (:body) (:loc) (:stickyp))
                       'make-vl-define
                       nil))

Function: vl-define

(defun vl-define (formals body loc stickyp)
  (declare (xargs :guard (and (vl-define-formallist-p formals)
                              (stringp body)
                              (vl-location-p loc)
                              (booleanp stickyp))))
  (declare (xargs :guard t))
  (let ((__function__ 'vl-define))
    (declare (ignorable __function__))
    (b* ((formals (mbe :logic (vl-define-formallist-fix formals)
                       :exec formals))
         (body (mbe :logic (str-fix body) :exec body))
         (loc (mbe :logic (vl-location-fix loc)
                   :exec loc))
         (stickyp (mbe :logic (acl2::bool-fix stickyp)
                       :exec stickyp)))
      (list (cons 'formals formals)
            (cons 'body body)
            (cons 'loc loc)
            (cons 'stickyp stickyp)))))