anchor.diff:      (:name :version
              :long "version"
              :description "Print version and exit.")
  -    (:name :eval
  -           :short #\e
  -           :long "eval"
  -           :arg-parser #'identity
  -           :description "Eval the Lisp expression.")
       (:name :init-file
              :short #\i
              :long "init-file"
  
positive.code:   (unless (str:emptyp (namestring file))
      (handler-case (if (string= (pathname-name file) "-")
                        (progn
                          (format t "Loading configuration from standard input...")
                          (loop for object = (read *standard-input* nil :eof)
                                until (eq object :eof)
                                do (eval object)))
                        (when (uiop:file-exists-p file)
                          (format t "~&Loading configuration from ~s...~&" file)
                          (load file)))
        (error (c)
          ;; TODO: Handle warning from `echo'.
  
negative.code:     (when (getf options :verbose)
        (set-debug-level :debug)
        (format t "Arguments parsed: ~a and ~a~&" options free-args))
  
      (when (or (getf options :load)
                (getf options :eval))
        (unless (getf options :no-init)
          (load-lisp-file (init-file-path) :interactive nil))
        (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)
                ""
  