anchor.diff:  (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...))."
  +  (declare (symbol op))
     (cond
       ((null precedence) '())
       ((member op (cdar precedence)) precedence)
  
positive.code:                (push (cons a production) action-productions)
                 (let ((id (kernel-id k)))
                   (dolist (s symbols)
                     (if (assoc s (aref action id))
                         (multiple-value-bind (new-action s-r r-r)
                             (handle-conflict
  
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))
  