anchor.diff:       (format t "Nyxt version ~a~&" +version+))
   
       ((getf options :list-data-profiles)
  -     (unless (or (getf *options* :no-init)
  -                 (not (expand-path *init-file-path*)))
  -       (load-lisp (expand-path *init-file-path*) :package (find-package :nyxt-user)))
  +     (alex:when-let ((init (expand-path *init-file-path*)))
  +       (load-lisp init :package (find-package :nyxt-user)))
        (mapcar (lambda (pair)
                  (format t "~a~10t~a~&" (first pair) (indent (second pair) 10)))
                (mapcar #'rest (package-data-profiles))))
  
positive.code:                   (not (expand-path *auto-config-file-path*)))
          (load-lisp (expand-path *auto-config-file-path*)
                     :package (find-package :nyxt-user)))
        (unless (or (getf *options* :no-init)
                    (not (expand-path *init-file-path*)))
          (match (multiple-value-list (load-lisp (expand-path *init-file-path*)
                                                 :package (find-package :nyxt-user)))
            (nil nil)
            ((list message full-message)
  
negative.code:                                         (basename *socket-path*))
                            :dirname (uiop:xdg-data-home +data-root+)))))
  
    (setf *init-file-path*
          (cond
            ((getf *options* :no-init)
             nil)
            ((getf *options* :init)
             (alex:when-let* ((init-path (make-instance 'init-data-path
                                                        :basename (getf *options* :init)))
                              (init (expand-path init-path)))
               (unless (uiop:file-exists-p init)
                 (log:warn "Init file ~s does not exist." init))
               init-path))
            (t
             *init-file-path*)))
  
    (if (getf *options* :verbose)
        (progn
          (log:config :debug)
  