anchor.diff:  	      (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, but it doesn't
  -      ;; work on SBCL 0.8.16 for me. Is this an SBCL-specific problem?
  -      ;; Is the code broken?
  +      ;; 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)
  
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: 	     (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
      (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.
  