• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Community
  • Proof-automation
  • ACL2
    • Theories
    • Rule-classes
    • Proof-builder
    • Recursion-and-induction
    • Hons-and-memoization
    • Events
    • Parallelism
    • History
    • Programming
    • Operational-semantics
    • Real
    • Start-here
    • Debugging
    • Miscellaneous
    • Output-controls
    • Macros
      • Make-event
      • Defmacro
      • Untranslate-patterns
      • Tc
      • Trans*
      • Macro-aliases-table
      • Macro-args
      • Defabbrev
      • User-defined-functions-table
      • Trans
      • Untranslate-for-execution
      • Add-macro-fn
      • Check-vars-not-free
      • Safe-mode
      • Macro-libraries
        • B*
        • Defunc
        • Fty
        • Apt
          • Simplify-defun
          • Isodata
          • Tailrec
          • Schemalg
            • Schemalg-implementation
              • Schemalg-event-generation
              • Schemalg-fn
              • Schemalg-macro-definition
              • Schemalg-input-processing
            • Schemalg-divconq-oset-0-1
            • Schemalg-divconq-list-0-1
          • Restrict
          • Expdata
          • Casesplit
          • Simplify-term
          • Simplify-defun-sk
          • Parteval
          • Solve
          • Wrap-output
          • Propagate-iso
          • Simplify
          • Finite-difference
          • Drop-irrelevant-params
          • Copy-function
          • Lift-iso
          • Rename-params
          • Utilities
          • Simplify-term-programmatic
          • Simplify-defun-sk-programmatic
          • Simplify-defun-programmatic
          • Simplify-defun+
          • Common-options
          • Common-concepts
        • Std/util
        • Defdata
        • Defrstobj
        • Seq
        • Match-tree
        • Defrstobj
        • With-supporters
        • Def-partial-measure
        • Template-subst
        • Soft
        • Defthm-domain
        • Event-macros
        • Def-universal-equiv
        • Def-saved-obligs
        • With-supporters-after
        • Definec
        • Sig
        • Outer-local
        • Data-structures
      • Trans1
      • Defmacro-untouchable
      • Set-duplicate-keys-action
      • Add-macro-alias
      • Magic-macroexpand
      • Defmacroq
      • Trans!
      • Remove-macro-fn
      • Remove-macro-alias
      • Add-binop
      • Untrans-table
      • Trans*-
      • Remove-binop
      • Tcp
      • Tca
    • Mailing-lists
    • Interfacing-tools
  • Macro-libraries
    • B*
    • Defunc
    • Fty
    • Apt
      • Simplify-defun
      • Isodata
      • Tailrec
      • Schemalg
        • Schemalg-implementation
          • Schemalg-event-generation
          • Schemalg-fn
          • Schemalg-macro-definition
          • Schemalg-input-processing
        • Schemalg-divconq-oset-0-1
        • Schemalg-divconq-list-0-1
      • Restrict
      • Expdata
      • Casesplit
      • Simplify-term
      • Simplify-defun-sk
      • Parteval
      • Solve
      • Wrap-output
      • Propagate-iso
      • Simplify
      • Finite-difference
      • Drop-irrelevant-params
      • Copy-function
      • Lift-iso
      • Rename-params
      • Utilities
      • Simplify-term-programmatic
      • Simplify-defun-sk-programmatic
      • Simplify-defun-programmatic
      • Simplify-defun+
      • Common-options
      • Common-concepts
    • Std/util
    • Defdata
    • Defrstobj
    • Seq
    • Match-tree
    • Defrstobj
    • With-supporters
    • Def-partial-measure
    • Template-subst
    • Soft
    • Defthm-domain
    • Event-macros
    • Def-universal-equiv
    • Def-saved-obligs
    • With-supporters-after
    • Definec
    • Sig
    • Outer-local
    • Data-structures
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Schemalg-implementation

Schemalg-macro-definition

Definition of the schemalg macro.

Submit the event form generated by schemalg-fn.

Macro: schemalg

(defmacro schemalg (&whole call
                           old &key (schema ':no-default schema?)
                           (list-input ':auto list-input?)
                           (oset-input ':auto oset-input?)
                           (cdr-output ':auto cdr-output?)
                           (tail-output ':auto tail-output?)
                           (fvar-0-name ':auto fvar-0-name?)
                           (fvar-1-name ':auto fvar-1-name?)
                           (fvar-2-name ':auto fvar-2-name?)
                           (algo-name ':auto)
                           (algo-enable 'nil)
                           (spec-0-name ':auto spec-0-name?)
                           (spec-0-enable 'nil spec-0-enable?)
                           (spec-1-name ':auto spec-1-name?)
                           (spec-1-enable 'nil spec-1-enable?)
                           (spec-2-name ':auto spec-2-name?)
                           (spec-2-enable 'nil spec-2-enable?)
                           (equal-algo-name ':auto)
                           (equal-algo-enable 'nil)
                           (new-name ':auto)
                           (new-enable ':auto)
                           (old-if-new-name ':no-default
                                            old-if-new-name?)
                           (old-if-new-enable ':no-default
                                              old-if-new-enable?)
                           (verify-guards ':auto)
                           (print ':result)
                           (show-only 'nil))
 (cons
  'make-event-terse
  (cons
   (cons
    'schemalg-fn
    (cons
     (cons 'quote (cons old 'nil))
     (cons
      (cons 'quote (cons schema 'nil))
      (cons
       (cons 'quote (cons schema? 'nil))
       (cons
        (cons 'quote (cons list-input 'nil))
        (cons
         (cons 'quote (cons list-input? 'nil))
         (cons
          (cons 'quote (cons oset-input 'nil))
          (cons
           (cons 'quote (cons oset-input? 'nil))
           (cons
            (cons 'quote (cons cdr-output 'nil))
            (cons
             (cons 'quote (cons cdr-output? 'nil))
             (cons
              (cons 'quote (cons tail-output 'nil))
              (cons
               (cons 'quote (cons tail-output? 'nil))
               (cons
                (cons 'quote (cons fvar-0-name 'nil))
                (cons
                 (cons 'quote (cons fvar-0-name? 'nil))
                 (cons
                  (cons 'quote (cons fvar-1-name 'nil))
                  (cons
                   (cons 'quote (cons fvar-1-name? 'nil))
                   (cons
                    (cons 'quote (cons fvar-2-name 'nil))
                    (cons
                     (cons 'quote (cons fvar-2-name? 'nil))
                     (cons
                      (cons 'quote (cons algo-name 'nil))
                      (cons
                       (cons 'quote (cons algo-enable 'nil))
                       (cons
                        (cons 'quote (cons spec-0-name 'nil))
                        (cons
                         (cons 'quote (cons spec-0-name? 'nil))
                         (cons
                          (cons 'quote (cons spec-0-enable 'nil))
                          (cons
                           (cons 'quote (cons spec-0-enable? 'nil))
                           (cons
                            (cons 'quote (cons spec-1-name 'nil))
                            (cons
                             (cons 'quote (cons spec-1-name? 'nil))
                             (cons
                              (cons 'quote
                                    (cons spec-1-enable 'nil))
                              (cons
                               (cons 'quote
                                     (cons spec-1-enable? 'nil))
                               (cons
                                (cons 'quote
                                      (cons spec-2-name 'nil))
                                (cons
                                 (cons 'quote
                                       (cons spec-2-name? 'nil))
                                 (cons
                                  (cons 'quote
                                        (cons spec-2-enable 'nil))
                                  (cons
                                   (cons 'quote
                                         (cons spec-2-enable? 'nil))
                                   (cons
                                    (cons
                                        'quote
                                        (cons equal-algo-name 'nil))
                                    (cons
                                     (cons
                                      'quote
                                      (cons equal-algo-enable 'nil))
                                     (cons
                                      (cons 'quote
                                            (cons new-name 'nil))
                                      (cons
                                       (cons 'quote
                                             (cons new-enable 'nil))
                                       (cons
                                        (cons
                                         'quote
                                         (cons
                                              old-if-new-name 'nil))
                                        (cons
                                         (cons
                                          'quote
                                          (cons
                                             old-if-new-name? 'nil))
                                         (cons
                                          (cons
                                           'quote
                                           (cons
                                            old-if-new-enable 'nil))
                                          (cons
                                           (cons
                                            'quote
                                            (cons old-if-new-enable?
                                                  'nil))
                                           (cons
                                            (cons
                                             'quote
                                             (cons
                                                verify-guards 'nil))
                                            (cons
                                             (cons
                                                  'quote
                                                  (cons print 'nil))
                                             (cons
                                              (cons
                                               'quote
                                               (cons
                                                    show-only 'nil))
                                              (cons
                                               (cons
                                                   'quote
                                                   (cons call 'nil))
                                               (cons
                                                (cons
                                                 'cons
                                                 (cons
                                                  ''schemalg
                                                  (cons
                                                   (cons
                                                    'quote
                                                    (cons old 'nil))
                                                   'nil)))
                                                '(state))))))))))))))))))))))))))))))))))))))))))))))
   (cons ':suppress-errors
         (cons (not print) 'nil)))))