anchor.diff:                              (classp b))
                          (string< (class-name a)
                                   (class-name b)))
  -                      ((and (eql-specializer-p a)
  -                            (not (eql-specializer-p b)))
  +                      ((and (typep a 'clim-mop:eql-specializer)
  +                            (not (typep b 'clim-mop:eql-specializer)))
                          nil)
  -                      ((and (not (eql-specializer-p a))
  -                            (eql-specializer-p b))
  +                      ((and (not (typep a 'clim-mop:eql-specializer))
  +                            (typep b 'clim-mop:eql-specializer))
                          t)
  -                      ((and (eql-specializer-p a)
  -                            (eql-specializer-p b))
  +                      ((and (typep a 'clim-mop:eql-specializer)
  +                            (typep b 'clim-mop:eql-specializer))
                          (string<
  -                        (princ-to-string (eql-specializer-object a))
  -                        (princ-to-string (eql-specializer-object b))))
  +                        (princ-to-string (clim-mop:eql-specializer-object a))
  +                        (princ-to-string (clim-mop:eql-specializer-object b))))
                         (t (warn "Received specializer of unknown type")
                            nil) ))))
             (compute-gf-specializers gf)))
  
positive.code: ;;;   * Portable MOP provided by CLIM-MOP package
  
  ;;; TODO:
  ;;;   * EQL specializers on implementations other than SBCL/CMUCL
  ;;;   * Nicer, more clever display of methods than simply listing them in a row.
  ;;;     To do this right really involes some nonportable fun and a codewalker.
  ;;;     You could probably write something that just understood the standard
  ;;;     method combination and qualifiers with substantially less work.
  ;;;   * Change focus behavior of McCLIM text entry gadget
  ;;;   * Implement focus-aware cursor shapes in McCLIM and/or Goatee
  ;;;     (actually I did this ages ago, but let it rot away on my disk..)
  
negative.code:   "Pretty print the name of a method specializer"
    (cond ((classp spec)
           (princ-to-string (class-name spec)))
          ((typep spec 'clim-mop:eql-specializer)
           (format nil "(EQL '~A)" (clim-mop:eql-specializer-object spec)))
          (t (princ-to-string spec))))
  
  (defun maybe-find-gf (name)
  