anchor.diff:      (when (getf options :verbose)
         (set-debug-level :debug)
         (format t "Arguments parsed: ~a and ~a~&" options free-args))
  -    (when (getf options :eval)
  +
  +    (when (or (getf options :load)
  +              (getf options :eval))
         (unless (getf options :no-init)
           (load-lisp-file (init-file-path) :interactive nil))
  -      (eval-expr (getf options :eval))
  +      (loop for (opt value . _) on options
  +            do (match opt
  +                 (:load (load-lisp-file value))
  +                 (:eval (eval-expr value))))
         (uiop:quit))
  +
       (setf *session*
             (if (getf options :no-session)
                 ""
  
positive.code:                            *load-init-error-message*)))
            (cond
              ((equal interactive :running)
               (echo-safe "Could not load the init file: ~a" c)
               (notify "We could not load the init file."))
              ((null interactive)
               (format *error-output* "~%~a~&~a~&" (cl-ansi-text:red message) c)
               (uiop:quit 1))
  
negative.code: slash (prefix with ./ to refer to files in current directory) or the basename of
  a file in the sessions directory '~a'.
  Warning: any existing file will be overwritten."
                            (xdg-data-home "sessions")))
      (:name :no-session
             :short #\S
             :long "no-session"
       :description "Do not load any session."))
    (handler-bind ((opts:unknown-option #'handle-malformed-cli-arg)
                   (opts:missing-arg #'handle-malformed-cli-arg)
                   (opts:arg-parser-failed #'handle-malformed-cli-arg))
  