		Search-engine friendly clone of the ACL2 documentation.

Vl-lucidctx

Make-vl-lucidctx

Basic constructor macro for vl-lucidctx structures.

Syntax

(make-vl-lucidctx [:modname <modname>] 
                  [:elem <elem>] 
                  [:ss <ss>] 
                  [:portname <portname>])

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

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

Definition

This is an ordinary make- macro introduced by defprod.

Macro: make-vl-lucidctx

(defmacro make-vl-lucidctx (&rest args)
  (std::make-aggregate 'vl-lucidctx
                       args
                       '((:modname) (:elem) (:ss) (:portname))
                       'make-vl-lucidctx
                       nil))

Function: vl-lucidctx

(defun vl-lucidctx (modname elem ss portname)
  (declare (xargs :guard (and (stringp modname)
                              (vl-ctxelement-p elem)
                              (vl-scopestack-p ss)
                              (maybe-stringp portname))))
  (declare (xargs :guard t))
  (let ((__function__ 'vl-lucidctx))
    (declare (ignorable __function__))
    (b* ((modname (mbe :logic (str-fix modname)
                       :exec modname))
         (elem (mbe :logic (vl-ctxelement-fix elem)
                    :exec elem))
         (ss (mbe :logic (vl-scopestack-fix ss)
                  :exec ss))
         (portname (mbe :logic (maybe-string-fix portname)
                        :exec portname)))
      (std::prod-cons (std::prod-cons modname elem)
                      (std::prod-cons ss portname)))))