anchor.diff:    #+openmcl (ccl:method-generic-function method)
     #-(or sbcl openmcl) (error "no MOP"))
   
  +(define-presentation-type settable-slot ()
  +  :inherit-from t)
  +
  +(define-presentation-method present (object (type settable-slot) 
  +				     stream
  +				     (view textual-view)
  +				     &key acceptably for-context-type)
  +  (declare (ignore acceptably for-context-type))
  +  (format stream "~s" (cdr object)))
  +
   (defmethod inspect-object ((object standard-object) pane)
     (let ((class (class-of object)))
       (with-output-as-presentation
  
positive.code: (define-inspector-command (com-remove-method :name t)
      ((obj 'method :gesture :delete :prompt "Remove method"))
    (remove-method (method-generic-function obj) obj))
  
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))))))))))))
  