anchor.diff:              nil))))))
   
   (defmethod get-unique-window-identifier ((browser browser))
  -  (incf (slot-value browser 'total-window-count)))
  +  (format nil "~s" (incf (slot-value browser 'total-window-count))))
   
   (defmethod get-unique-buffer-identifier ((browser browser))
  -  (incf (slot-value browser 'total-buffer-count)))
  +  (format nil "~s" (incf (slot-value browser 'total-buffer-count))))
   
   (declaim (ftype (function (&optional window buffer)) set-window-title))
   (export-always 'set-window-title)
  
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:      status-formatter
       window-delete-hook)))
  (defclass window ()
    ((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.")
  