anchor.diff:      ;; 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 (presentation-type-of object))
  +       (pane object 'inspected-function)
       (with-heading-style (pane)
         (princ "Function: " pane))
  -    (princ (pretty-print-function object) 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: "))
  -      (princ (sb-kernel:%simple-fun-type (sb-kernel:%closure-fun object))
  -	     pane))
  -    (print-documentation object pane)))
  +      (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
  
positive.code:   ;; be a tad inconsistent, but the other way looks very odd.
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (format pane "Package: ~S" (package-name object))))
  
  (defmethod inspect-object ((object package) pane)
    (inspector-table
  
negative.code: (defun inspect-structure-or-object-briefly (object pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (with-text-family (pane :fix)
        (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))
  