anchor.diff:  (defun open-urls (urls &key no-focus)
     "Create new buffers from URLs.
   First URL is focused if NO-FOCUS is nil."
  -  (let ((first-buffer (first (mapcar
  -                              (lambda (url)
  -                                (let ((buffer (make-buffer)))
  -                                  (set-url url :buffer buffer)
  -                                  buffer))
  -                              urls))))
  -    (unless no-focus
  +  (let ((first-buffer
  +         (first (mapcar
  +                 (lambda (url)
  +                   (let ((buffer (make-buffer)))
  +                     (if buffer
  +                         (progn
  +                           (set-url url :buffer buffer)
  +                           buffer)
  +                         (log:error "Could not create buffer, is the platform port running?"))))
  +                 urls))))
  +    (unless (or (null first-buffer)) no-focus
         (if (open-external-link-in-new-window-p *interface*)
             (let ((window (rpc-window-make)))
               (window-set-active-buffer window first-buffer))
  
positive.code: (defun rpc-buffer-make (&key title default-modes dead-buffer)
    "Make buffer with title TITLE and modes DEFAULT-MODES.
  Run `*interface*'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."
    (let* ((buffer (if dead-buffer
                       (progn (setf (id dead-buffer) (get-unique-buffer-identifier))
                              dead-buffer)
  
negative.code:                             (append (when title `(:title ,title))
                                      (when default-modes `(:default-modes ,default-modes)))))))
      (ensure-parent-exists (cookies-path buffer))
      (when (%rpc-send "buffer_make" (id buffer)
                       `(("cookies-path" ,(namestring (cookies-path buffer)))))
        ;; Modes might require that buffer exists, so we need to initialize them
        ;; after it has been created on the platform port.
        (setf (gethash (id buffer) (buffers *interface*)) buffer)
        (incf (total-buffer-count *interface*))
        (initialize-modes buffer)
        (hooks:run-hook (hooks:object-hook *interface* 'buffer-make-hook) buffer)
        buffer)))
  
  (defun %get-inactive-buffer ()
    "Return inactive buffer or NIL if none."
  