		Search-engine friendly clone of the ACL2 documentation.

Aig-or

Aig-or-macro-exec-part

Signature
(aig-or-macro-exec-part args) → *

Definitions and Theorems

Function: aig-or-macro-exec-part

(defun aig-or-macro-exec-part (args)
 (declare (xargs :guard t))
 (let ((__function__ 'aig-or-macro-exec-part))
  (declare (ignorable __function__))
  (cond
   ((atom args) nil)
   ((atom (cdr args)) (car args))
   (t
    (cons
     'let
     (cons
      (cons (cons 'aig-or-x-do-not-use-elsewhere
                  (cons (car args) 'nil))
            'nil)
      (cons
       (cons
        'if
        (cons
         '(eq t aig-or-x-do-not-use-elsewhere)
         (cons
          't
          (cons
           (cons
            'aig-binary-or
            (cons
             'aig-or-x-do-not-use-elsewhere
             (cons
               (cons 'check-vars-not-free
                     (cons '(aig-or-x-do-not-use-elsewhere)
                           (cons (aig-or-macro-exec-part (cdr args))
                                 'nil)))
               'nil)))
           'nil))))
       'nil)))))))