anchor.diff:                     (not (typep c 'standard-class))))
                classes))
   
  -(defun x-specializer-direct-generic-functions (specializer)
  +(defun x-specializer-direct-generic-functions (specializer)  ;; FIXME - move to CLIM-MOP
     #+PCL (pcl::specializer-direct-generic-functions specializer)
     #+SBCL (sb-pcl::specializer-direct-generic-functions specializer)
     #+openmcl-partial-mop
     (openmcl-mop:specializer-direct-generic-functions specializer)
     #-(or PCL SBCL openmcl-partial-mop)
  -  (error "Sorry, not supported in your CL implementation. See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION if you're interested in fixing this."))
  +  (error "Sorry, not supported in your CL implementation. See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION if you are interested in fixing this."))
   
   (defun class-funcs (class)
     (let ((classes (remove-ignorable-classes (copy-list (clim-mop:class-precedence-list class))))
  
positive.code:   "The apropos command stores its output here.")
  
  (defparameter *apropos-symbol-unbound-family* :fix)
  (defparameter *apropos-symbol-unbound-face* :roman)
  (defparameter *apropos-symbol-bound-family*   :fix)
  (defparameter *apropos-symbol-bound-face*   :roman)
  
  ;; FIXME: Make this a present method specialzed on a view?
  
  
negative.code:        (cond ((eql (symbol-package symbol)
                     (find-package "KEYWORD"))
                (make-rgb-color 0.46 0.0 0.0))
               ((fboundp symbol)        (make-rgb-color 0.0  0.0  0.3))
               ((find-class symbol nil) (make-rgb-color 0.03 0.35 0.48))
               ((boundp symbol)         (make-rgb-color 0.0  0.0  0.0))
               (t                       (make-rgb-color 0.6  0.6  0.6))))
      (with-drawing-options (stream :ink ink :text-style style)
        (with-output-as-presentation (stream symbol 'clim:symbol)
          (if show-package
  