anchor.diff:  
   (declaim (ftype (function (trivial-types:pathname-designator &key (:interactive t) (:package (or null package))))
                   load-lisp))
  -(defun load-lisp (file &key interactive package)
  +(defun load-lisp (file &key interactive package) ; TODO: Replace `interactive' with `*keep-alive*'.
     "Load the Lisp FILE (or stream).
      If FILE is \"-\", read from the standard input.
      If INTERACTIVE is t, allow the debugger on errors. If :running, show
  
positive.code: 
      (when (or (getf options :load)
                (getf options :eval))
        (unless (getf options :no-init)
          (load-lisp (init-file-path) :interactive nil :package (find-package :next-user)))
        ;; We need a browser instance so that listen-socket-p can know the socket path.
        ;; TODO: Use (get-default ...) instead?  Ideally, socket could also
  
negative.code: 
  (export-always 'start)
  (defun start (&key urls (init-file (init-file-path)))
    "Load INIT-FILE if non-nil.
  Instantiate `*browser*'.
  Start Next and load URLS if any.
  Finally,run the `*after-init-hook*'."
    (let ((startup-timestamp (local-time:now))
          (startup-error-reporter nil))
      (format t "Next version ~a~&" +version+)
      (setf *session* (derive-session *session*))
      (unless (or (getf *options* :no-init)
                  (not init-file))
        (handler-case
            (load-lisp init-file :interactive t :package (find-package :next-user))
          (error (c)
  