anchor.diff:                  :color "white")))))
     (:export-class-name-p t)
     (:export-accessor-names-p t)
  +  (:export-predicate-name-p t)
     (:accessor-name-transformer #'class*:name-identity))
   
   (define-user-class internal-buffer)
  
positive.code: (defmethod initialize-instance :after ((buffer web-buffer) &key)
    (when (expand-path (cookies-path buffer))
      (ensure-parent-exists (expand-path (cookies-path buffer)))))
  
  (export-always 'web-buffer-p)
  (defun web-buffer-p (buffer)
    (subtypep (type-of buffer) 'web-buffer))
  
  (define-class internal-buffer (user-buffer)
    ((style #.(cl-css:css
  
negative.code:                 :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)
  
  (defmethod proxy ((buffer buffer))
    (slot-value buffer 'proxy))
  