anchor.diff:    "Load INPUT-URL in BUFFER.
   If INPUT-URL is a string, it's transformed to a `quri:uri' by `parse-url'.
   URL is then transformed by BUFFER's `buffer-load-hook'."
  -  (unless (internal-buffer-p buffer)
  -    (let* ((url (typecase input-url
  -                  (string
  -                   (parse-url input-url))
  -                  (history-entry
  -                   (url input-url))
  -                  (t
  -                   input-url)))
  -           (new-url
  -             (handler-case
  -                 (hooks:run-hook (slot-value buffer 'buffer-load-hook) url)
  -               (error (c)
  -                 (log:error "In `buffer-load-hook': ~a" c)
  -                 nil))))
  +  (let* ((url (typecase input-url
  +                (string
  +                 (parse-url input-url))
  +                (history-entry
  +                 (url input-url))
  +                (t
  +                 input-url)))
  +         (new-url
  +           (handler-case
  +               (hooks:run-hook (slot-value buffer 'buffer-load-hook) url)
  +             (error (c)
  +               (log:error "In `buffer-load-hook': ~a" c)
  +               nil))))
         (when new-url
           (check-type new-url quri:uri)
           (setf url new-url)
  
positive.code:             ;; TODO: Can be a source of inefficiency due to an always-checked conditional.
              ;; Move somewhere (`request-resource'?) where the impact of conditional will be weaker?
              (ffi-buffer-evaluate-javascript buffer (quri:url-decode (quri:uri-path url)))
              (ffi-buffer-load buffer url))))))
  
  (defun new-buffer-load (url)
    "Load a URL in a new buffer."
  
negative.code:               (object-string (url (current-buffer))) "")
     :sources (list (make-instance 'prompter:raw-source
                                   :name "New URL"
                                   :actions (list (make-unmapped-command buffer-load)
                                                  (make-unmapped-command new-nosave-buffer-load)))
                    (make-instance 'global-history-source
                                   :actions (list (make-unmapped-command buffer-load)
                                                  (make-unmapped-command new-nosave-buffer-load-from-history))))))
  
  (defun reload-buffer (&optional (buffer (current-buffer)))
    "Reload a BUFFER or current-buffer if not provided."
  