anchor.diff:                       (simple-condition-format-control w)
                        (simple-condition-format-arguments w)))))
   
  -(define-condition conflict-summary-warning (warning)
  +(define-condition conflict-summary-warning (yacc-compile-warning)
     ((shift-reduce :initarg :shift-reduce
                    :reader conflict-summary-warning-shift-reduce)
      (reduce-reduce :initarg :reduce-reduce
  
positive.code:   (:use #:common-lisp)
    (:export #:make-production #:make-grammar #:make-parser #:parse-with-lexer
             #:define-grammar #:define-parser
             #:yacc-parse-error #:yacc-parse-error-terminal
             #:yacc-parse-error-value #:yacc-parse-error-expected-terminals)
    #+CMU
    (:import-from #:extensions #:required-argument #:memq)
  
negative.code:                                 :muffle-conflicts muffle-conflicts)
        (when discard-memos (grammar-discard-memos grammar)))))
  
  (define-condition yacc-runtime-error (error)
    ()
  )
  
  (define-condition yacc-parse-error (yacc-runtime-error)
    ((terminal :initarg :terminal :reader yacc-parse-error-terminal)
     (value :initarg :value :reader yacc-parse-error-value)
     (expected-terminals :initarg :expected-terminals
  