anchor.diff:      (:name :no-init
              :short #\Q
              :long "no-init"
  -           :description "Do not load the user init file.")
  -    (:name :no-session
  -           :short #\S
  -           :long "no-session"
  -     :description "Do not load any session.")
  +     :description "Do not load the user init file.")
  +    (:name :eval
  +           :short #\e
  +           :long "eval"
  +           :arg-parser #'identity
  +     :description "Eval the Lisp expressions.")
  +    (:name :load
  +           :short #\l
  +           :long "load"
  +           :arg-parser #'identity
  +     :description "Load the Lisp file.")
       (:name :session
              :short #\s
              :long "session"
  
positive.code:     (when (getf options :verbose)
        (set-debug-level :debug)
        (format t "Arguments parsed: ~a and ~a~&" options free-args))
      (when (getf options :eval)
        (unless (getf options :no-init)
          (load-lisp-file (init-file-path) :interactive nil))
        (eval-expr (getf options :eval))
        (uiop:quit))
      (setf *session*
            (if (getf options :no-session)
                ""
  
negative.code:     (:name :version
             :long "version"
             :description "Print version and exit.")
      (:name :init-file
             :short #\i
             :long "init-file"
  