anchor.diff:      (dolist (file-slot-name file-slot-names)
         (setf (files:profile (slot-value buffer file-slot-name))
               (profile buffer))))
  -  (unless no-hook-p
  +  (unless (or no-hook-p
  +              (not browser))
       (hooks:run-hook (buffer-before-make-hook browser) buffer))
     ;; Background buffers are invisible to the browser.
     (when (and (focus-buffer-p buffer)
  
positive.code:   (gethash id (slot-value *browser* 'buffers)))
  
  (defun buffers-set (id buffer)
    (setf (gethash id (slot-value *browser* 'buffers)) buffer)
    (print-status))
  
  (defun buffers-delete (id)
  
negative.code:   (:documentation "Buffers in which the user can navigate the view, zoom, etc."))
  
  (defmethod initialize-instance :after ((buffer buffer) &key (browser *browser*)
                                         &allow-other-keys)
    "Set buffer ID and return buffer."
    (when browser
      (setf (id buffer) (get-unique-identifier browser)))
    buffer)
  
  (defmethod finalize-buffer ((buffer buffer) &key (browser *browser*) &allow-other-keys)
  