-(let ((script (and (second sb-ext:*posix-argv*)
- (probe-file (second sb-ext:*posix-argv*)))))
- (when script
- ;; Handle the possible shebang-line
- (set-dispatch-macro-character #\# #\!
- (lambda (stream char arg)
- (declare (ignore char arg))
- (read-line stream)))
- ;; Disable debugger
- (setf sb-ext:*invoke-debugger-hook*
- (lambda (condition hook)
- (declare (ignore hook))
- (format *error-output* "Error: ~A~%" condition)
- (quit :unix-status 1)))
- (load script)
- (quit)))
+(let ((script (and (second *posix-argv*)
+ (probe-file (second *posix-argv*)))))
+ (when script
+ ;; Handle shebang-line
+ (set-dispatch-macro-character #\# #\!
+ (lambda (stream char arg)
+ (declare (ignore char arg))
+ (read-line stream)))
+ ;; Disable debugger
+ (setf *invoke-debugger-hook*
+ (lambda (condition hook)
+ (declare (ignore hook))
+ ;; Uncomment to get backtraces on errors
+ ;; (sb-debug:backtrace 20)
+ (format *error-output* "Error: ~A~%" condition)
+ (quit)))
+ (load script)
+ (quit)))