| Paste number 94641: | Startup noise |
| Pasted by: | Demosthenes |
| When: | 1 year, 11 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+210X |
| Channel: | #lisp |
| Paste contents: |
#!/usr/local/bin/sbcl --script
;;; Muffle compiler-notes globally, doesn't work
(setf *error-output* (open "/dev/null" :direction :output :element-type 'character :IF-EXISTS :OVERWRITE))
(setf *standard-error* (open "/dev/null" :direction :output :element-type 'character :IF-EXISTS :OVERWRITE))
(setf *load-verbose* nil)
(declaim (sb-ext:muffle-conditions sb-ext:compiler-note ))
(declaim (sb-ext:muffle-conditions warning ))
(declaim (optimize (speed 0) (space 0) (debug 3)))
(require :asdf)
(eval-when (:compile-toplevel :load-toplevel :execute)
(asdf:oos 'asdf:load-op :snap-parser-modules :verbose nil))
----------------
on execute:
; loading system definition from /usr/local/lib/sbcl/sb-grovel/sb-grovel.asd
; into #<PACKAGE "ASDF2">
; registering #<SYSTEM SB-GROVEL {B020889}> as SB-GROVEL
This paste has no annotations.