projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.46.27: fix mach port leakage
[sbcl.git]
/
src
/
code
/
toplevel.lisp
diff --git
a/src/code/toplevel.lisp
b/src/code/toplevel.lisp
index
0868844
..
f519002
100644
(file)
--- a/
src/code/toplevel.lisp
+++ b/
src/code/toplevel.lisp
@@
-297,7
+297,10
@@
any non-negative real number."
(handling-end-of-the-world
(with-open-file (f pathname :element-type :default)
(sb!fasl::maybe-skip-shebang-line f)
(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)
+ ;; Scripts don't need to be stylish or fast, but silence is usually a
+ ;; desirable quality...
+ (handler-bind (((or style-warning compiler-note) #'muffle-warning))
+ (load f :verbose nil :print nil))
(quit)))))
;; Errors while processing the command line cause the system to QUIT,
(quit)))))
;; Errors while processing the command line cause the system to QUIT,