		Search-engine friendly clone of the ACL2 documentation.
Solve-implementation
Solve-macro-definition

Definition of the solve macro.
Submit the event form generated by solve-fn.
Macro: solve
(defmacro solve (&whole call
                        old &key (method ':no-default method?)
                        (method-rules 'nil)
                        (solution-name ':auto)
                        (solution-enable 'nil solution-enable?)
                        (solution-guard 't solution-guard?)
                        (solution-guard-hints 'nil
                                              solution-guard-hints?)
                        (solution-body ':no-default
                                       solution-body?)
                        (solution-hints 'nil solution-hints?)
                        (new-name ':auto)
                        (new-enable ':auto)
                        (old-if-new-name ':irrelevant
                                         old-if-new-name?)
                        (old-if-new-enable ':irrelevant
                                           old-if-new-enable?)
                        (verify-guards ':auto)
                        (print ':result)
                        (show-only 'nil))
 (cons
  'make-event-terse
  (cons
   (cons
    'solve-fn
    (cons
     (cons 'quote (cons old 'nil))
     (cons
      (cons 'quote (cons method 'nil))
      (cons
       (cons 'quote (cons method? 'nil))
       (cons
        (cons 'quote (cons method-rules 'nil))
        (cons
         (cons 'quote (cons solution-name 'nil))
         (cons
          (cons 'quote
                (cons solution-enable 'nil))
          (cons
           (cons 'quote
                 (cons solution-enable? 'nil))
           (cons
            (cons 'quote (cons solution-guard 'nil))
            (cons
             (cons 'quote
                   (cons solution-guard? 'nil))
             (cons
              (cons 'quote
                    (cons solution-guard-hints 'nil))
              (cons
               (cons 'quote
                     (cons solution-guard-hints? 'nil))
               (cons
                (cons 'quote (cons solution-body 'nil))
                (cons
                 (cons 'quote (cons solution-body? 'nil))
                 (cons
                  (cons 'quote (cons solution-hints 'nil))
                  (cons
                   (cons 'quote
                         (cons solution-hints? '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
                                 ''solve
                                 (cons (cons 'quote (cons old 'nil))
                                       'nil)))
                              '(state))))))))))))))))))))))))))))
   (cons ':suppress-errors
         (cons (not print) 'nil)))))