		Search-engine friendly clone of the ACL2 documentation.

Vl-scopestack

Vl-scopestack-p

Recognizer for vl-scopestack structures.

Signature
(vl-scopestack-p x) → *

Definitions and Theorems

Function: vl-scopestack-p

(defun vl-scopestack-p (x)
  (declare (xargs :guard t))
  (let ((__function__ 'vl-scopestack-p))
    (declare (ignorable __function__))
    (cond ((atom x) (and (eq x nil) (b* nil t)))
          ((eq (car x) :global)
           (b* ((design (cdr x)))
             (vl-design-p design)))
          (t (b* ((top (car x)) (super (cdr x)))
               (and (vl-scope-p top)
                    (vl-scopestack-p super)))))))