anchor.diff:            (print "Host not found")
             (sleep *platform-port-poll-interval*))))))
   
  -(defun start (&key (execute-port nil))
  +(defun start ()
     (map nil 'funcall *deferred-variables*)
  +  (map nil 'funcall *deferred-mode-initializations*)
     (ensure-directories-exist (xdg-data-home))
  -  (map nil 'funcall *deferred-mode-initializations*)
     (initialize-bookmark-db)
     (initialize-history-db)
     (setf *default-new-buffer-mode* #'document-mode)
  
positive.code:   ;; initialize default state
    (setf *minibuffer* (make-instance 'minibuffer))
    (initialize-port)
    (when execute-port
      (run-loop *port*))
    t)
  
  (setf *port* (make-instance 'port))
  
negative.code: 
  (defun start-with-port ()
    (run-program *port*)
    (start)
    (run-loop *port*))
  
  (defun initialize-port ()
    (let ((port-running nil))
  