anchor.diff:                 (ecase (caar op1-tail)
                    ((:left) (values a2 0 0))
                    ((:right) (values a1 0 0))
  -                 ((:nonassoc) (values (make-error-action) 0 0)))))
  +                 ((:nonassoc) (values nil 0 0)))))
               (t
                (return-from handle-conflict
                  (if (tailp op2-tail (cdr op1-tail))
  
positive.code:                (let ((id (kernel-id k)))
                   (dolist (s symbols)
                     (declare (symbol s))
                     (if (assoc s (aref action id))
                         (multiple-value-bind (new-action s-r r-r)
                             (handle-conflict
                              (cdr (assoc s (aref action id)))
                              a grammar action-productions
                              id s muffle-conflicts)
                           (setf (cdr (assoc s (aref action id))) new-action)
                           (incf sr-conflicts s-r) (incf rr-conflicts r-r))
                         (push (cons s a) (aref action id))))))
               (set-goto (k symbols target)
                 (let ((i (kernel-id k)) (j (kernel-id target)))
                   (dolist (s symbols)
  
negative.code:                (accept-action
                  (pop stack)
                  (return (pop stack)))
                 (null
                  (error (make-condition
                          'yacc-parse-error
                          :terminal (if (eq symbol 'yacc-eof-symbol) nil symbol)
  