anchor.diff:  ;;;   * 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.
  +;;;   * 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..)
  
positive.code:                             (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)))
  
negative.code: ;; commands within your application, a menu bar, etc.
  
  ;; The :panes option is typically used to define and name the important
  ;; elements of your interface. CLIM provides some syntactic sugar, for
  ;; example (arg-pane :vrack-pane) below is equivalent to
  ;; (arg-pane (make-pane 'vrack-pane)).
  
  