		Search-engine friendly clone of the ACL2 documentation.

Vl-call

Make-vl-call

Basic constructor macro for vl-call structures.

Syntax

(make-vl-call [:name <name>] 
              [:plainargs <plainargs>] 
              [:namedargs <namedargs>] 
              [:typearg <typearg>] 
              [:systemp <systemp>] 
              [:atts <atts>])

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

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

Definition

This is an ordinary make- macro introduced by defprod.

Macro: make-vl-call

(defmacro make-vl-call (&rest args)
  (std::make-aggregate 'vl-call
                       args
                       '((:name)
                         (:plainargs)
                         (:namedargs)
                         (:typearg)
                         (:systemp)
                         (:atts))
                       'make-vl-call
                       nil))

Function: vl-call

(defun vl-call (name plainargs
                     namedargs typearg systemp atts)
 (declare (xargs :guard (and (vl-scopeexpr-p name)
                             (vl-maybe-exprlist-p plainargs)
                             (vl-call-namedargs-p namedargs)
                             (vl-maybe-datatype-p typearg)
                             (booleanp systemp)
                             (vl-atts-p atts))))
 (declare (xargs :guard t))
 (let ((__function__ 'vl-call))
  (declare (ignorable __function__))
  (b* ((name (mbe :logic (vl-scopeexpr-fix name)
                  :exec name))
       (plainargs (mbe :logic (vl-maybe-exprlist-fix plainargs)
                       :exec plainargs))
       (namedargs (mbe :logic (vl-call-namedargs-fix namedargs)
                       :exec namedargs))
       (typearg (mbe :logic (vl-maybe-datatype-fix typearg)
                     :exec typearg))
       (systemp (mbe :logic (acl2::bool-fix systemp)
                     :exec systemp))
       (atts (mbe :logic (vl-atts-fix atts)
                  :exec atts)))
    (cons :vl-call
          (std::prod-cons
               (std::prod-cons name
                               (std::prod-cons plainargs namedargs))
               (std::prod-cons typearg
                               (std::prod-cons systemp atts)))))))