Commit 5868d371 authored by Stas Boukarev's avatar Stas Boukarev
Browse files

io-sbcl.lisp: Muffle compiler notes.

parent ffada140
......@@ -107,6 +107,7 @@
(declaim (inline write-n-signed-bytes))
(defun write-n-signed-bytes (value n stream)
(declare (optimize speed)
(sb-ext:muffle-conditions sb-ext:compiler-note)
(fixnum n))
(ecase n
(1 (setf (sb-sys:signed-sap-ref-8 (advance-stream n stream) 0)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment