anchor.diff:  ;;;   * Portable MOP provided by CLIM-MOP package
   
   ;;; TODO:
  -;;;   * EQL specializers (not portable according to AMOP)
  +;;;   * 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
  
positive.code:                     (cond
                        ((eql a (find-class t)) t)
                        ((eql b (find-class t)) nil)
                        (t (string< (class-name a)
                                    (class-name b)))))))
            (compute-gf-specializers gf)))
  
  (defun simple-generic-function-lambda-list (gf)
  
negative.code: 
  (defun specializer-pretty-name (spec)
    "Pretty print the name of a method specializer"
    (cond ((classp spec)
           (princ-to-string (class-name spec)))
          ((eql-specializer-p spec)
           (format nil "(EQL '~A)" (eql-specializer-object spec)))
          (t (princ-to-string spec))))
  
  (defun maybe-find-gf (name)
  