anchor.diff:  			    (prin1 object string))))
         (if (< (length representation) *object-representation-max-length*)
   	  (princ representation pane)
  -	  (format pane "instance of ~S" (class-name (class-of object)))))))
  +	  (format pane "#<~S ...>" (class-name (class-of object)))))))
   
   (defmethod inspect-object ((object standard-object) pane)
     (inspect-structure-or-object object pane))
  
positive.code: 		   (format pane "~a:" slot-name))
  		 (inspect-object (slot-value object slot-name) pane)))))))
  
  (defparameter *object-representation-max-length* 60
    "Maximum number of characters of an object's textual representation
  that are allowed before abbreviation kicks in")
  
  
negative.code:           (inspect-object uses pane)))))
  
  (defmethod inspect-object ((object vector) pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (formatting-table (pane)
        (formatting-row (pane)
          (formatting-cell (pane)
  