Paste number 94641: Startup noise

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:
Raw Source | XML | Display As
#!/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.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.