anchor.diff:       status-formatter
        window-delete-hook)))
   (defclass window ()
  -  ((id :accessor id :initarg :id)
  +  ((id :accessor id
  +       :initarg :id
  +       :type string
  +       :initform "")
      (active-buffer :reader active-buffer :initform nil)
      (active-minibuffers :accessor active-minibuffers :initform nil
                          :documentation "The stack of currently active minibuffers.")
  
positive.code:      buffer-delete-hook
       default-cookie-policy)))
  (defclass buffer ()
    ((id :accessor id :initarg :id :initform ""
         :documentation "Unique identifier for a buffer.
  Dead buffers or placeholder buffers (i.e. those not associated with a web view)
  have an empty ID.")
  
negative.code:             nil))))))
  
  (defmethod get-unique-window-identifier ((browser browser))
    (format nil "~s" (incf (slot-value browser 'total-window-count))))
  
  (defmethod get-unique-buffer-identifier ((browser browser))
    (format nil "~s" (incf (slot-value browser 'total-buffer-count))))
  
  (declaim (ftype (function (&optional window buffer)) set-window-title))
  (export-always 'set-window-title)
  