anchor.diff:  (defparameter *slot-writers-ink*  +black+)
   (defparameter *slot-documentation-ink* +turquoise4+)
   
  -
   (defun present-slot (slot class &key (stream *standard-output*))
     "Formats a slot definition into a table row."
     (let* ((name (clim-mop:slot-definition-name slot))
  
positive.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
  
negative.code:       (setf gfs (append gfs (x-specializer-direct-generic-functions x))))
      (remove-duplicates gfs)))
  
  (defun slot-name-sortp (a b)
    (flet ((slot-name-symbol (x)
             (or (and (consp x)
                      (second x)
                      (symbolp (second x))
                      (second x))
                 x)))
      (let ((a (slot-name-symbol a))
            (b (slot-name-symbol b)))  
        (if (and (symbolp a) (symbolp b))
            (cond ((not (eq (symbol-package a)
                            (symbol-package b)))
                   (string< (package-name (symbol-package a))
                            (package-name (symbol-package b))))
                  (T (string< (symbol-name a)
                              (symbol-name b))))
            (string< (princ-to-string a)
                     (princ-to-string b))))))
  
  (define-command (com-show-class-generic-functions
                   :name "Show Class Generic Functions"
  