anchor.diff:     (t
       (format stream "   it has a value of ")
       (clim:present (symbol-value thing) (clim:presentation-type-of (symbol-value thing))
  -		  :stream stream)
  +                  :stream stream)
       (terpri)))
     (format stream "   it is in the ")
     (clim:present (symbol-package thing) (clim:presentation-type-of (symbol-package thing))
  -		:stream stream)
  +                :stream stream)
     (format stream " package~%")
     (when (fboundp thing)
       (format stream "   it has a function definition of ~S~%" (symbol-function thing))
  
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 t) stream)
      (let ((*print-array* nil))
        (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)
        (terpri stream))))
  
  (defmethod describe-object ((thing symbol) 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)
    (terpri stream)
    (cond
     ((not (boundp thing))
  