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