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:     (: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:                 load-lisp))
  (defun load-lisp (file &key package)
    "Load the Lisp FILE (or stream).
  Return the short error message and the full error message as second value."
    (let ((*package* (or (find-package package) *package*)))
      (flet ((unsafe-load ()
               (when (equal "" file)
                 (error "Can't load empty file name."))
               (cond
                 ((streamp file)
                  (load file))
                 ((uiop:file-exists-p file)
  