anchor.diff:  (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
  
positive.code:                 :color "black")))))
    (:export-class-name-p t)
    (:export-accessor-names-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))
  
negative.code:           :documentation "Proxy for buffer.")
     (certificate-exceptions '()
                             :type list-of-strings
                             :documentation "A list of hostnames for which certificate errors shall be ignored.")
     (cookies-path (make-instance 'cookies-data-path :basename "cookies.txt")
                   :type data-path
                   :documentation "The path where cookies are stored.  Not all
  