anchor.diff:    ;; Randomness should be seeded as early as possible to avoid generating
     ;; deterministic tokens.
     (setf *random-state* (make-random-state t))
  -  (when (getf *options* :init-file)
  -    (setf *init-file-path* (getf *options* :init-file)))
  -  (load-lisp-file *init-file-path*)
  +  (load-lisp-file (init-file-path))
     ;; create the interface object
     (unless (eq swank:*communication-style* :fd-handler)
       (log:warn "swank:*communication-style* is set to ~s, recommended value is :fd-handler"
  
positive.code:                                  :input-prompt "Load file:"))
      (load-lisp-file file-name-input)))
  
  (define-command load-init-file (root-mode &optional (init-file *init-file-path*))
    "Load or reload the init file."
    (load-lisp-file init-file))
  
  
negative.code:           (let ((buffer (make-buffer)))
              (set-url-buffer url buffer)))))))
  
  (defun init-file-path (&optional (file "init.lisp"))
    ;; This can't be a regular variable or else the value will be hard-coded at
    ;; compile time.  It seems to be hard-coded with (eval-when (:execute) ...) as well.
    "The path where the system will look to load an init file from."
    (xdg-config-home (or (getf *options* :init-file) file)))
  
  (defun load-lisp-file (file)
    "Load the provided lisp file.
  