projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.45.35: revert 1.0.45.30 due to regression (lp#677779)
[sbcl.git]
/
src
/
code
/
toplevel.lisp
diff --git
a/src/code/toplevel.lisp
b/src/code/toplevel.lisp
index
2749322
..
0868844
100644
(file)
--- 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)))))
(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
;; 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
(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)
(bug "PROCESS-SCRIPT returned")))
(abort ()
:report (lambda (s)