anchor.diff:  	     (prin1 fun string))))
       ;; If we have SBCL, try to do fancy formatting. If anything goes
       ;; wrong with that, fall back on ugly standard PRIN1.
  -    #+sbcl (handler-case (format nil "~A ~S"
  -				 (sb-impl::%simple-fun-name fun)
  -				 (sb-impl::%simple-fun-arglist fun))
  -	     (error () (generic-print fun)))
  +    #+sbcl
  +    (unless (typep fun 'generic-function)
  +      (let ((fun (sb-kernel:%closure-fun fun)))
  +	(handler-case (format nil "~A ~S"
  +			      (sb-kernel:%simple-fun-name fun)
  +			      (sb-kernel:%simple-fun-arglist fun))
  +	  (error () (generic-print fun)))))
       ;; FIXME: Other Lisp implementations have ways of getting this
       ;; information. If you want a better inspector on a non-SBCL Lisp,
       ;; please add code for it and send patches.
  
positive.code:        (pane object (presentation-type-of object))
      (format pane "Function: ~A"
  	    (pretty-print-function object))
      #+sbcl (format pane "~&Type: ~A"
  		   (sb-impl::%simple-fun-type object))
      (print-documentation object pane)))
  
  (defmethod inspect-object-briefly ((object package) pane)
  
negative.code: 	      (clim-mop:slot-definition-type slot-object))
        (format stream "~&Allocation: ~S~%"
  	      (clim-mop:slot-definition-allocation slot-object))
        ;; FIXME: This should show readers and writers for object slots
        ;; (but not structure slots), but it doesn't work on SBCL 0.8.16
        ;; for me. Is this an SBCL-specific problem?  Is the code
        ;; broken?
        (when (clim-mop:slot-definition-readers slot-object)
  	(format stream "~&Readers: ")
  	(format-textual-list (clim-mop:slot-definition-readers slot-object)
  