anchor.diff:     `(setf (reduce-action-action-form ,a) ',(reduce-action-action-form a)
             (reduce-action-action ,a) (eval ',(reduce-action-action-form a)))))
   
  -(defmethod make-load-form ((a error-action) &optional env)
  -  (declare (ignore env))
  -  `(make-error-action))
  -
   (defmethod make-load-form ((a shift-action) &optional env)
     (declare (ignore env))
     `(make-shift-action ',(shift-action-state a)))
  
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:                (accept-action
                  (pop stack)
                  (return (pop stack)))
                 (null
                  (error (make-condition
                          'yacc-parse-error
                          :terminal (if (eq symbol 'yacc-eof-symbol) nil symbol)
  