anchor.diff:      (run-program *port*))
     ;; initialize default state
     (setf *minibuffer* (make-instance 'minibuffer))
  -  (initialize-port)
  +  (initialize-port *interface*)
     (when with-platform-port-p
       (run-loop *port*)
       (kill-interface *interface*))
  
positive.code:            (format t "Bye!~&")
             (uiop:quit)))))
  
  (defun initialize-port ()
    (let ((port-running nil))
      ;; TODO: Limit loop.
      (loop while (not port-running) do
        (handler-case
            (let ((buffer (nth-value 1 (make-window))))
              (set-url-buffer (if *free-args* (car *free-args*) *start-page-url*) buffer)
              ;; We can have many URLs as positional arguments.
  
negative.code:               (let ((buffer (make-buffer)))
                  (set-url-buffer url buffer)))
              (setf port-running t))
          (error (_)
            (log:info "Polling platform port '~a'...~%" (platform-port interface))
            (sleep *platform-port-poll-interval*)
            (setf port-running nil))))))
  
  (defun start (&key (with-platform-port-p nil))
    (map nil 'funcall *deferred-variables*)
  