anchor.diff:                 (push (cons a production) action-productions)
                  (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
  
positive.code: (defun find-precedence (op precedence)
    "Return the tail of PRECEDENCE starting with the element containing OP.
  PRECEDENCE is a list of elements of the form (KEYWORD . (op...))."
    (cond
      ((null precedence) '())
      ((member op (cdar precedence)) precedence)
  
negative.code: 
  (defun map-lr1-collection (f collection)
    "Apply F to all elements of COLLECTION."
    (declare (type function f) (dynamic-extent f)
             (type lr1-collection collection))
    (typecase collection
      (list (mapcar f collection))
      (hash-table (maphash #'(lambda (k v) (declare (ignore k)) (funcall f v))
  