anchor.diff:    (defmethod describe-object ((thing t) stream)
       (let ((*print-array* nil))
         (clim:present thing (clim:presentation-type-of thing)
  -		    :stream stream)
  +                    :stream stream)
         (format stream " is of type ")
         (clim:present (type-of thing) (clim:presentation-type-of (type-of thing))
  -		    :stream stream)
  -      (terpri stream)))
  -)
  +                    :stream stream)
  +      (terpri stream))))
   
   (defmethod describe-object ((thing symbol) stream)
     (clim:present thing (clim:presentation-type-of thing)
  -		:stream stream)
  +                :stream stream)
     (format stream " is of type ")
     (clim:present (type-of thing) (clim:presentation-type-of (type-of thing))
  -		:stream stream)
  +                :stream stream)
     (terpri stream)
     (cond
      ((not (boundp thing))
  
positive.code:    (t
      (format stream "   it has a value of ")
      (clim:present (symbol-value thing) (clim:presentation-type-of (symbol-value thing))
  		  :stream stream)
      (terpri)))
    (format stream "   it is in the ")
    (clim:present (symbol-package thing) (clim:presentation-type-of (symbol-package thing))
  		:stream stream)
    (format stream " package~%")
    (when (fboundp thing)
      (format stream "   it has a function definition of ~S~%" (symbol-function thing))
  
negative.code: 
  (defmethod describe-object ((thing number) stream)
    (clim:present thing (clim:presentation-type-of thing)
                  :stream stream)
    (format stream " is a number of type ")
    (clim:present (type-of thing) (clim:presentation-type-of (type-of thing))
                  :stream stream)
    (terpri stream))
  
  (defmethod describe-object ((thing string) stream)
    (clim:present thing (clim:presentation-type-of thing)
                  :stream stream)
    (format stream " is of type ")
    (clim:present (type-of thing) (clim:presentation-type-of (type-of thing))
                  :stream stream)
    (format stream " with a length of ")
    (clim:present (length thing) 'clim:integer
                  :stream stream)
    (terpri stream))
  
  (defmethod describe-object ((thing package) stream)
    (clim:present thing (clim:presentation-type-of thing)
                  :stream stream)
    (format stream " is a package named ")
    (clim:present (package-name thing) (clim:presentation-type-of (package-name thing))
                  :stream stream)
    (terpri stream)
    (format stream "   it has the nicknames of ")
    (clim:present (package-nicknames thing) 'clim:expression
                  :stream stream)
    (terpri stream)
    (format stream "   it uses these packages: ")
    (clim:present (package-use-list thing) 'clim:expression
                  :stream stream)
    (terpri stream)
    (format stream "   it is used by the packages: ")
    (clim:present (package-used-by-list thing) 'clim:expression
                  :stream stream)
    (terpri stream))
  
  (labels ((present-instance-slots-text (thing stream)
             (let* ((slots (c2mop:class-slots (class-of thing)))
  