anchor.diff:      (if (null class)
           (note "~A is not a defined class." class-spec)
         (let ((funcs (sort (class-funcs class) (lambda (a b)
  -                                               (symbol< (clim-mop:generic-function-name a)
  +                                               (not-really-symbol< (clim-mop:generic-function-name a)
                                                           (clim-mop:generic-function-name b))))))
           (with-text-size (T :small)
             (format-items funcs :printer (lambda (item stream)
  
positive.code:       (setf gfs (append gfs (x-specializer-direct-generic-functions x))))
      (remove-duplicates gfs)))
  
  ;; Oops, guess this isn't really comparing symbols anymore. What to call it, then?
  (defun symbol< (a b)
    (when (and (consp a)
               (second a)
               (symbolp (second a)))
  
negative.code:                                  (with-drawing-options (stream :ink normal-ink
  							       :text-style text-style)
                                     (with-output-as-presentation (stream (clim-mop:class-name class) 'class-name)
                                       ; (surrounding-output-with-border (stream :shape :drop-shadow)
  				       (princ (clim-mop:class-name class))))) ;)
  			     inferior-fun
  			     :stream stream
                               :merge-duplicates T
  