<?xml version="1.0"?>
<paste-with-annotations>
  <paste>
    <number>
      <integer>94640</integer>
    </number>
    <user>
      <string>Demosthenes</string>
    </user>
    <title>
      <string>untitled</string>
    </title>
    <contents>
      <string>#!/usr/local/bin/sbcl --script

;;; Muffle compiler-notes globally, doesn't work
(setf *error-output* (open &quot;/dev/null&quot; :direction :output :element-type 'character :IF-EXISTS :OVERWRITE))
(setf *standard-error* (open &quot;/dev/null&quot; :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 ))


----------------------------------------------
on execution:

; loading system definition from /usr/local/lib/sbcl/sb-grovel/sb-grovel.asd
; into #&lt;PACKAGE &quot;ASDF2&quot;&gt;
; registering #&lt;SYSTEM SB-GROVEL {B020889}&gt; as SB-GROVEL
</string>
    </contents>
    <universal-time>
      <integer>3474715943</integer>
    </universal-time>
    <channel>
      <string>#lisp</string>
    </channel>
    <colorization-mode>
      <string>Common Lisp</string>
    </colorization-mode>
    <maybe-spam>
      <null/>
    </maybe-spam>
    <is-unicode>
      <keyword>TRUE</keyword>
    </is-unicode>
    <deletion-requested>
      <null/>
    </deletion-requested>
    <deletion-requested-email>
      <null/>
    </deletion-requested-email>
    <expiration-time>
      <null/>
    </expiration-time>
  </paste>
</paste-with-annotations>
