anchor.diff:        (dolist (slot-b (clim-mop:class-direct-slots class))
           (when (eq name (clim-mop:slot-definition-name slot-b))
             (return-from earliest-slot-definer class)))))
  -  (error "Slot ~W doesn't seem to be defined in ~W" slot class))
  +  (error "Slot ~W does not appear to be defined in ~W" slot class))
   
   (defun class-sorted-slots (class)
     "Sort the slots in order of definition within the CPL, superclasses first."
  
positive.code: 
  ;;; CLOS introspection commands
  
  (defun class-grapher (stream class inferior-fun)
    "Does the graphing for Show Class Superclasses and Subclasses commands"
    (let ((normal-ink +foreground-ink+)
          (arrow-ink  (make-rgb-color 0.72 0.72 0.72))	
  	(text-style (make-text-style :fix :roman :normal)))
      (with-drawing-options (stream :text-style text-style)
      (format-graph-from-roots (list class)
  			     #'(lambda (class stream)                                 
                                   (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
                               :graph-type :tree
  			     :orientation :horizontal
  			     :arc-drawer
  			     #'(lambda (stream foo bar x1 y1 x2 y2)
  				 (declare (ignore foo bar))
  				 (draw-arrow* stream x1 y1 x2 y2 :ink arrow-ink))))))
  
  (defun frob-to-class (spec)
    (if (typep spec 'class)
  
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
  