anchor.diff:    (let ((class (class-of object)))
       (inspector-table
           (print (class-name class) pane)
  -      (loop for slot in (reverse (class-slots class))
  -            do (let ((slot-name (slot-definition-name slot)))
  +      (loop for slot in (reverse (clim-mop:class-slots class))
  +            do (let ((slot-name (clim-mop:slot-definition-name slot)))
   		  (inspector-table-row
                       (with-output-as-presentation
                           (pane (cons object slot-name) 'settable-slot)
  
positive.code: 
  (define-inspector-command (com-remove-method :name t)
      ((obj 'method :gesture :delete :prompt "Remove method"))
    (remove-method (method-generic-function obj) obj))
  
  (define-inspector-command (com-set-slot :name t)
      ((slot 'settable-slot :gesture :select :prompt "Set slot"))
  
negative.code:       (pane object (presentation-type-of object))  
      (print object pane)))
  
  
  (define-presentation-type settable-slot ()
    :inherit-from t)
  