anchor.diff:  (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"))
  +  (setf (slot-value (car slot) (cdr slot))
  +	(accept t :prompt "New slot value")))
  
positive.code:   #+openmcl (ccl:method-generic-function method)
    #-(or sbcl openmcl) (error "no MOP"))
  
  (defmethod inspect-object ((object standard-object) pane)
    (let ((class (class-of object)))
      (with-output-as-presentation
  
negative.code: 			 (formatting-row (pane)
  			   (formatting-cell (pane :align-x :right)
  			     (with-output-as-presentation
  				 (pane (cons object slot-name) 'settable-slot)
  			       (format pane "~a:" slot-name)))
  			   (formatting-cell (pane)
  			     (inspect-object (slot-value object slot-name) pane))))))))))))
  