anchor.diff:  ;;; 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, 
  +;;; 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)
  
positive.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)))
  
negative.code:                         (t
                           (format stream "      ~v@A: <unbound>~%" width
                                   (c2mop:slot-definition-name slot)))))))
  
           (present-instance-slots-clim (thing stream)
             (let ((slots (c2mop:class-slots (class-of thing))))
               (clim:formatting-table (stream)
  