anchor.diff:                  :color "black")))))
     (:export-class-name-p t)
     (:export-accessor-names-p t)
  +  (:export-predicate-name-p t)
     (:accessor-name-transformer #'class*:name-identity))
   
   (define-user-class status-buffer)
  -
  -(export-always 'internal-buffer-p)
  -(defmethod internal-buffer-p ((buffer buffer))
  -  nil)
  -
  -(defmethod internal-buffer-p ((internal-buffer internal-buffer))
  -  t)
   
   (defmethod proxy ((buffer buffer))
     (slot-value buffer 'proxy))
  
positive.code:                 :color "white")))))
    (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:accessor-name-transformer #'class*:name-identity))
  
  (define-user-class internal-buffer)
  
negative.code:                       :documentation "Path where `*error-output*' can be written to."))
    (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:export-predicate-name-p t)
    (:accessor-name-transformer #'class*:name-identity))
  
  (define-user-class buffer)
  