anchor.diff:          (goto-array (parser-goto parser)))
       (flet ((action (i a)
                (declare (type index i) (symbol a))
  -             (or (cdr (assoc a (aref action-array i)))
  -                 (make-error-action)))
  +             (cdr (assoc a (aref action-array i))))
              (goto (i a)
                (declare (type index i) (symbol a))
                (or (cdr (assoc a (aref goto-array i)))
  
positive.code:                (ecase (caar op1-tail)
                   ((:left) (values a2 0 0))
                   ((:right) (values a1 0 0))
                   ((:nonassoc) (values (make-error-action) 0 0)))))
              (t
               (return-from handle-conflict
                 (if (tailp op2-tail (cdr op1-tail))
  
negative.code:                           make-shift-action (state)))
    (state (required-argument) :type index))
  
  (defun action-equal-p (a1 a2)
    (declare (type (or null action) a1 a2))
    (or (eq a1 a2)
        (and
         (eq (type-of a1) (type-of a2))
  