• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Proof-automation
    • Macro-libraries
      • B*
      • Defunc
      • Fty
      • Apt
        • Simplify-defun
        • Isodata
        • Tailrec
        • Schemalg
        • Restrict
        • Expdata
        • Casesplit
        • Simplify-term
        • Simplify-defun-sk
        • Parteval
          • Parteval-implementation
            • Parteval-event-generation
            • Parteval-fn
            • Parteval-input-processing
            • Parteval-macro-definition
          • 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
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Parteval-implementation

    Parteval-macro-definition

    Definition of the parteval macro.

    Submit the event form generated by parteval-fn.

    Macro: parteval

    (defmacro parteval (&whole call old static &key (new-name ':auto)
                               (new-enable ':auto)
                               (thm-name ':auto)
                               (thm-enable 't)
                               (verify-guards ':auto)
                               (untranslate ':nice)
                               (print ':result)
                               (show-only 'nil))
     (cons
      'make-event-terse
      (cons
       (cons
        'parteval-fn
        (cons
         (cons 'quote (cons old 'nil))
         (cons
          (cons 'quote (cons static 'nil))
          (cons
           (cons 'quote (cons new-name 'nil))
           (cons
            (cons 'quote (cons new-enable 'nil))
            (cons
             (cons 'quote (cons thm-name 'nil))
             (cons
              (cons 'quote (cons thm-enable 'nil))
              (cons
               (cons 'quote (cons verify-guards 'nil))
               (cons
                (cons 'quote (cons untranslate 'nil))
                (cons
                 (cons 'quote (cons print 'nil))
                 (cons
                  (cons 'quote (cons show-only 'nil))
                  (cons
                   (cons 'quote (cons call 'nil))
                   (cons (cons 'cons
                               (cons ''parteval
                                     (cons (cons 'quote (cons old 'nil))
                                           'nil)))
                         '(state))))))))))))))
       (cons ':suppress-errors
             (cons (not print) 'nil)))))