anchor.diff:         (method-more-specific-with-args-p gf m1 m2 args))))
   
   ;;; method-more-specific-p
  +
  +(defun reordered-method-argument-index (gf index)
  +  "Convert from a reordered argument index to a normal argument index."
  +  (let ((ordering-table (argument-reordering-table gf)))
  +    (cond (ordering-table
  +           (aref ordering-table index))
  +          (t
  +           index))))
   
   (defun reorder-method-specializers (gf method-specializers)
     (let ((ordering-table (argument-reordering-table gf)))
  
positive.code:       (error 'sys.int::simple-program-error
               :format-control "Too few arguments to generic function ~S."
               :format-arguments (list gf)))
      (let* ((classes (mapcar #'class-of (subseq args 0 n-required-args)))
             (emfun (gethash classes emf-table nil)))
        (if emfun
            (apply emfun args)
            (slow-method-lookup gf args classes)))))
  
  (defun compute-1-effective-eql-table (gf argument-offset)
    (loop
  
negative.code:   (cond ((single-dispatch-emf-table-p (classes-to-emf-table gf))
           (clear-single-dispatch-emf-table (classes-to-emf-table gf)))
          ((classes-to-emf-table gf)
           (clear-emf-cache (classes-to-emf-table gf)))))
  
  (defun required-portion (gf args)
    (let ((number-required (length (gf-required-arglist gf))))
  