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:       (shift-action
         (format s "~D" (shift-action-state a))))))
  
  (define-condition conflict-warning (simple-warning)
    ((kind :initarg :kind :reader conflict-warning-kind)
     (state :initarg :state :reader conflict-warning-state)
     (terminal :initarg :terminal :reader conflict-warning-terminal))
  
negative.code:   (:use #:common-lisp)
    (:export #:make-production #:make-grammar #:make-parser #:parse-with-lexer
             #:define-grammar #:define-parser
             #:yacc-compile-warning #:conflict-warning #:conflict-summary-warning
             #:yacc-runtime-error #:yacc-parse-error #:yacc-parse-error-terminal
             #:yacc-parse-error-value #:yacc-parse-error-expected-terminals)
    #+CMU
    (:import-from #:extensions #:required-argument #:memq)
  