anchor.diff:                                                                :errorp errorp)))
                   (memoize-reply-dispatch message relevant-args new-msg-list)))))))
   
  -(declaim (inline desired-vector-entry-p))
  -(defun desired-vector-entry-p (args vector-entry relevant-args-length)
  +(declaim (inline desired-cache-entry-p))
  +(defun desired-cache-entry-p (args cache-entry relevant-args-length)
     (declare (fixnum relevant-args-length) (list args))
  -  (when (vectorp vector-entry)
  -    (let ((vector-args (weak-pointer-value (vector-entry-args vector-entry))))
  +  (when cache-entry
  +    (let ((vector-args (weak-pointer-value (cache-entry-args cache-entry))))
         (cond ((= 0 relevant-args-length)
                t)
               ((= 1 relevant-args-length)
  
positive.code:                 (loop
                     for curr-sheep in curr-sheep-list
                     for hierarchy-position below (length curr-sheep-list)
                     do (dolist (role (sheep-direct-roles curr-sheep))
                          (when (and (eq message (role-reply role))
                                     (= index (the fixnum (role-position role))))
                            (let ((curr-reply (role-reply role)))
  
negative.code:           (create-reply-cache message (%find-applicable-replies
                                            message relevant-args
                                            :errorp errorp)))
          (let ((memo-entry (fetch-dispatch-cache-entry args message relevant-args-length)))
            (or memo-entry
                memo-entry
                (let* ((relevant-args (subseq args 0 relevant-args-length))
  