anchor.diff:             :short #\i
              :long "init"
              :arg-parser #'identity
  -           :description "Set path to initialization file.
  -Set to '-' to read standard input instead.")
  +           :description "Set path to initialization file.")
       (:name :no-init
              :short #\I
              :long "no-init"
  
positive.code:     (:name :script
             :long "script"
             :arg-parser #'identity
             :description "Load the Lisp file (skip #! line if any), skip init file, then exit.")
      (:name :remote
             :short #\r
             :long "remote"
  
negative.code:              (mapcar #'rest (package-data-profiles))))
  
      ((getf options :script)
       (flet ((run-script (stream)
                (maybe-skip-shebang-line stream)
                (load-lisp stream)))
         (match (getf options :script)
           ("-" (run-script *standard-input*))
           (file (with-open-file (f file :element-type :default)
                   (run-script f))))))
  
      ((or (getf options :load)
           (getf options :eval))
  