anchor.diff:  	  (pane method (presentation-type-of method))
   	(formatting-row (pane)
   	  (formatting-cell (pane)
  -	    (print (method-qualifiers method)))
  +	    (with-text-family (pane :fix)
  +	      (print (clim-mop:method-qualifiers method) pane)))
   	  (loop for specializer in (clim-mop:method-specializers method)
   		do (formatting-cell (pane)
   		     (if (typep specializer 'clim-mop:eql-specializer)
  
positive.code: (defun inspect-structure-or-object-briefly (object pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (handler-case
  	(let ((representation (with-output-to-string (string)
  				(prin1 object string))))
  	  (if (< (length representation) *object-representation-max-length*)
  	      (princ representation pane)
  	      (format pane "#<~S ...>" (class-name (class-of object)))))
        (error ()
  	(format pane "#<unprintable ~S>" (class-name (class-of object)))))))
  
  (defmethod inspect-object-briefly ((object standard-object) pane)
    (inspect-structure-or-object-briefly object pane))
  
negative.code:     ;; please add code for it and send patches.
      #-sbcl (generic-print fun)))
  
  ;; This is ugly. I think CLIM requires there to be a presentation type
  ;; for every class, so we should use FUNCTION---but I'm not sure how
  ;; well that will work.
  (define-presentation-type inspected-function ()
    :inherit-from t)
  
  (defmethod inspect-object ((object function) pane)
    (with-output-as-presentation
         (pane object 'inspected-function)
      (with-heading-style (pane)
        (princ "Function: " pane))
      (with-text-family (pane :fix)
        (princ (pretty-print-function object) pane))
      #+sbcl
      (unless (typep object 'generic-function)
        (with-heading-style (pane)
  	(format pane "~&Type: "))
        (with-text-family (pane :fix)
  	(princ (sb-kernel:%simple-fun-type (sb-kernel:%closure-fun object))
  	       pane)))
      (print-documentation object pane)
      (when (gethash object (disassembly-dico *application-frame*))
        (display-disassembly object pane))))
  
  (defmethod inspect-object-briefly ((object package) pane)
    ;; Display as 'Package: "PACKAGE-NAME"'. We're doing something a
  