anchor.diff:    "Generates the display of applicable methods in the output-pane"
     (when (gf frame)
       (let* ((gf (gf frame))
  -           (methods (clim-mop:compute-applicable-methods-using-classes gf (arg-types frame)))
  +           (methods (compute-applicable-methods-from-specializers gf (arg-types frame)))
              (combination (clim-mop:generic-function-method-combination gf))
              (effective-methods (clim-mop:compute-effective-method gf combination methods))
  -           (serial-methods (walk-em-form effective-methods)))
  +           (serial-methods (walk-em-form effective-methods)))      
         ;; Print the header
         (fresh-line)
         (with-drawing-options (pane :text-style (make-text-style :sans-serif :bold :large)
  
positive.code: 
  (defun specializer-pretty-name (spec)
    "Pretty print the name of a method specializer"
    (cond ((or (typep spec 'class)
               #+CMU (typep spec 'pcl::class))
           (princ-to-string (class-name spec)))
          (t (princ-to-string spec))))
  
  (defun maybe-find-gf (name)
  
negative.code:                     (cond
                        ((eql a (find-class t)) t)
                        ((eql b (find-class t)) nil)
                        ((and (classp a)
                              (classp b))
                         (string< (class-name a)
                                  (class-name b)))
                        ((and (eql-specializer-p a)
                              (not (eql-specializer-p b)))
                         nil)
                        ((and (not (eql-specializer-p a))
                              (eql-specializer-p b))
                         t)
                        ((and (eql-specializer-p a)
                              (eql-specializer-p b))
                         (string<
                          (princ-to-string (eql-specializer-object a))
                          (princ-to-string (eql-specializer-object b))))
                        (t (warn "Received specializer of unknown type")
                           nil) ))))
            (compute-gf-specializers gf)))
  
  (defun simple-generic-function-lambda-list (gf)
  