X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Ftoplevel.lisp;h=0868844ad82e64b6d1b1739742cb72695b1fb62a;hb=ad4fd20de698fe853fb8aec3d49e51e369771b31;hp=2749322c269a390487d94bcea97f3558c7ac127c;hpb=e55494dad53ad03b2501e02de6e03524c00d9f45;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 2749322..0868844 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -292,6 +292,14 @@ any non-negative real number."
       (dolist (option options)
         (process-1 option)))))
 
+(defun process-script (script)
+  (let ((pathname (native-pathname script)))
+    (handling-end-of-the-world
+      (with-open-file (f pathname :element-type :default)
+        (sb!fasl::maybe-skip-shebang-line f)
+        (load f :verbose nil :print nil)
+        (quit)))))
+
 ;; Errors while processing the command line cause the system to QUIT,
 ;; instead of trying to go into the Lisp debugger, because trying to
 ;; go into the Lisp debugger would get into various annoying issues of
@@ -438,7 +446,7 @@ any non-negative real number."
               (process-init-file userinit :user))
             (process-eval/load-options (nreverse reversed-options))
             (when script
-              (load-script (native-pathname script))
+              (process-script script)
               (bug "PROCESS-SCRIPT returned")))
         (abort ()
           :report (lambda (s)