- (let ((pathname (native-pathname script))
- (ok nil))
- (unwind-protect
- (with-open-file (f pathname :element-type :default)
- (maybe-skip-shebang-line f)
- (load f :verbose nil :print nil)
- (setf ok t))
- (quit :unix-status (if ok 0 1)))))
+ (let ((pathname (native-pathname script)))
+ (handling-end-of-the-world
+ (with-open-file (f pathname :element-type :default)
+ (maybe-skip-shebang-line f)
+ (load f :verbose nil :print nil)
+ (quit)))))