• 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
        • Define-sk
        • Defines
        • Error-value-tuples
        • Defmax-nat
        • Defmin-int
        • Deftutorial
        • Extended-formals
        • Defrule
        • Defval
        • Defsurj
        • Defiso
        • Defconstrained-recognizer
        • Deffixer
          • Deffixer-implementation
            • Deffixer-fn
            • Deffixer-macro-definition
            • Defconstrained-recognizer-implementation
          • 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
    • Deffixer-implementation

    Deffixer-macro-definition

    Definition of the deffixer macro.

    Macro: deffixer

    (defmacro deffixer (name &key pred param body-fix
                             (parents 'nil parents-supplied-p)
                             (short 'nil short-supplied-p)
                             (long 'nil long-supplied-p))
     (cons
      'make-event
      (cons
       (cons
        'deffixer-fn
        (cons
         (cons 'quote (cons name 'nil))
         (cons
          (cons 'quote (cons pred 'nil))
          (cons
           (cons 'quote (cons param 'nil))
           (cons
            (cons 'quote (cons body-fix 'nil))
            (cons
             (cons 'quote (cons parents 'nil))
             (cons
                 parents-supplied-p
                 (cons short
                       (cons short-supplied-p
                             (cons long
                                   (cons long-supplied-p 'nil)))))))))))
       'nil)))