anchor.diff:         (princ (object-print-name arg) stream))
         (t
          (princ (object-print-label arg) stream)))))
  +
   
   (defun print-hash-table (table 
                            &key
  
positive.code: ;; (object-print-label (find-class 'stream))
  ;; => "CL:STREAM"
  
  (defgeneric format-label (stream arg colon-p at-p)
    (:method (stream arg colon-p at-p)
      (declare (ignore colon-p))
  
negative.code: ;; print-utils.lisp - utilities for object printing
  
  (in-package #:utils)
  
  (defgeneric (setf object-print-name) (new-value object))
  (defgeneric (setf object-print-label) (new-value object))
  
  (defgeneric object-print-name (object)
    ;; FIXME: #I18N
  