		Search-engine friendly clone of the ACL2 documentation.

Vl-define

Make-vl-define

Basic constructor macro for vl-define structures.

Syntax

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

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
                       '((:name) (:formals) (:body) (:loc))
                       'make-vl-define
                       nil))

Function: vl-define

(defun vl-define (name formals body loc)
  (declare (xargs :guard (and (stringp name)
                              (vl-define-formallist-p formals)
                              (stringp body)
                              (vl-location-p loc))))
  (declare (xargs :guard t))
  (let ((__function__ 'vl-define))
    (declare (ignorable __function__))
    (b* ((name (mbe :logic (str-fix name) :exec name))
         (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)))
      (list (cons 'name name)
            (cons 'formals formals)
            (cons 'body body)
            (cons 'loc loc)))))