anchor.diff:                                         'clim:expression
                                          :stream stream)
                            (format stream "<unbound>"))))))))
  -         
  -         (describe-instance (thing a-what stream)  
  +
  +         (describe-instance (thing a-what stream)
              (clim:present thing (clim:presentation-type-of thing)
                            :stream stream)
  -           (format stream " is ~A of type " a-what)          
  +           (format stream " is ~A of type " a-what)
              (clim:present (type-of thing) (clim:presentation-type-of (type-of thing))
                            :stream stream)
              (terpri stream)
  
positive.code: ;;; Library General Public License for more details.
  ;;;
  ;;; You should have received a copy of the GNU Library General Public
  ;;; License along with this library; if not, write to the 
  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  ;;; Boston, MA  02111-1307  USA.
  
  (in-package :clim-lisp)
  
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)))
  