anchor.diff:    "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)))
  +        ((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)
  
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: ;; 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)).
  
  