anchor.diff:  
   (defun find-applicable-messages (buzzword args &key (errorp t))
     (declare (buzzword buzzword))
  +  (declare (list args))
     (let* (;; This doesn't seem to be expensive at all..
   	 (relevant-args-length (the fixnum (arg-info-number-required (buzzword-arg-info buzzword))))
   	 ;; If I can avoid calling fetch-memo-vector-entry for singly-dispatched readers, that
  
positive.code: 		    (return-from fetch-memo-vector-entry (vector-entry-msg-cache entry))))
  	    nil)))))
  
  
  
  (defstruct (vector-entry (:type vector))
    args
    msg-cache)
  
  (defun memoize-message-dispatch (buzzword args msg-list)
    (let ((msg-cache (create-message-cache buzzword msg-list))
  
negative.code:     (declare (fixnum total))
      (loop for item across rank
         do (when (numberp item)
  	    (incf (the fixnum total) (the fixnum item))))
      total))
  
  (defun message-specialized-portion (msg)
  