anchor.diff:            (setf (url buffer) (quri:uri url))))
       buffer))
   
  +(define-command make-nosave-buffer (&key (title "") modes (url "") (load-url-p t))
  +  "Create a new buffer that won't save anything to the filesystem.
  +MODES is a list of mode symbols.
  +If URL is `:default', use `default-new-buffer-url'.
  +LOAD-URL-P controls whether to load URL right at buffer creation."
  +  (let* ((buffer (buffer-make *browser* :title title
  +                                        :default-modes modes
  +                                        :nosave-buffer-p t))
  +         (url (if (eq url :default)
  +                  (default-new-buffer-url buffer)
  +                  url)))
  +    (unless (url-empty-p url)
  +      (if load-url-p
  +          (buffer-load url :buffer buffer)
  +          (setf (url buffer) (quri:uri url))))
  +    buffer))
  +
   (define-command make-internal-buffer (&key (title "") modes
                                         no-history-p)
     "Create a new buffer.
  
positive.code:                        ;; Dead buffer ID must be renewed before calling `ffi-buffer-make'.
                         (setf (id dead-buffer) (get-unique-buffer-identifier *browser*))
                         (ffi-buffer-make dead-buffer))
                       (apply #'make-instance (if internal-buffer-p
                                                  'user-internal-buffer
                                                  'user-web-buffer)
                              :id (get-unique-buffer-identifier *browser*)
                              (append (when title `(:title ,title))
                                      (when default-modes `(:default-modes ,default-modes))
  
negative.code:                                    (:data-profile data-profile)
                                     (:default-modes list)
                                     (:dead-buffer buffer)
                                     (:nosave-buffer-p boolean)
                                     (:internal-buffer-p boolean)
                                     (:parent-buffer buffer)
                                     (:no-history-p boolean)))
                  buffer-make))
  (defun buffer-make (browser &key data-profile title default-modes
                                dead-buffer nosave-buffer-p internal-buffer-p
                                parent-buffer no-history-p)
    "Make buffer with title TITLE and modes DEFAULT-MODES.
  Run `*browser*'s `buffer-make-hook' over the created buffer before returning it.
  If DEAD-BUFFER is a dead buffer, recreate its web view and give it a new ID."
  