• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
      • Std/lists
      • Std/alists
      • Obags
      • Std/util
        • Defprojection
        • Deflist
        • Defaggregate
        • Define
        • Defmapping
        • Defenum
        • Add-io-pairs
        • Defalist
        • Defmapappend
        • Returns-specifiers
        • Defarbrec
          • Defarbrec-implementation
            • Defarbrec-event-generation
            • Defarbrec-input-processing
            • Defarbrec-check-redundancy
            • Defarbrec-fn
            • Defarbrec-table
            • Defarbrec-macro-definition
          • Define-sk
          • Defines
          • Error-value-tuples
          • Defmax-nat
          • Defmin-int
          • Deftutorial
          • Extended-formals
          • Defrule
          • Defval
          • Defsurj
          • Defiso
          • Defconstrained-recognizer
          • Deffixer
          • Defmvtypes
          • Defconsts
          • Defthm-unsigned-byte-p
          • Support
          • Defthm-signed-byte-p
          • Defthm-natp
          • Defund-sk
          • Defmacro+
          • Defsum
          • Defthm-commutative
          • Definj
          • Defirrelevant
          • Defredundant
        • Std/strings
        • Std/osets
        • Std/io
        • Std/basic
        • Std/system
        • Std/typed-lists
        • Std/bitsets
        • Std/testing
        • Std/typed-alists
        • Std/stobjs
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Defarbrec-implementation

    Defarbrec-macro-definition

    Definition of the defarbrec macro.

    Submit the event form generated by defarbrec-fn.

    Macro: defarbrec

    (defmacro defarbrec (&whole call fn x1...xn body &key update-names
                                terminates-name measure-name
                                (nonterminating ':nonterminating)
                                (print ':result)
                                show-only)
     (cons
      'make-event-terse
      (cons
       (cons
        'defarbrec-fn
        (cons
         (cons 'quote (cons fn 'nil))
         (cons
          (cons 'quote (cons x1...xn 'nil))
          (cons
           (cons 'quote (cons body 'nil))
           (cons
            (cons 'quote (cons update-names 'nil))
            (cons
             (cons 'quote
                   (cons terminates-name 'nil))
             (cons
              (cons 'quote (cons measure-name 'nil))
              (cons
               (cons 'quote (cons nonterminating 'nil))
               (cons
                (cons 'quote (cons print 'nil))
                (cons
                 (cons 'quote (cons show-only 'nil))
                 (cons
                    (cons 'quote (cons call 'nil))
                    (cons (cons 'cons
                                (cons ''defarbrec
                                      (cons (cons 'quote (cons fn 'nil))
                                            'nil)))
                          '(state)))))))))))))
       (cons ':suppress-errors
             (cons (not print) 'nil)))))