anchor.diff:       :documentation ((object stream) (format stream "Class of ~A" object))
        :gesture t)
     (object)
  -  (c2mop:class-name object))
  +  (class-name object))
   
   (define-presentation-translator expression-to-function-name
     (expression function-name lisp-dev-commands
  
positive.code: 	(primary nil))
      (loop
         for meth in methods
         for (qualifier) = (c2mop:method-qualifiers meth)
         do (case qualifier
  	    (:before
  	     (push meth before))
  
negative.code: 								   :text-style text-style)
  				       ;; Present class name rather than class here because the printing of the
  				       ;; class object itself is rather long and freaks out the pointer doc pane.
  				       (with-output-as-presentation (stream (class-name class) 'class-name
                                                                              :single-box t)
  					; (surrounding-output-with-border (stream :shape :drop-shadow)
  					 (princ (class-name class) stream)))) ;)
  				 inferior-fun
  				 :stream stream
  				 :merge-duplicates t
  