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

io-sbcl.lisp: Muffle compiler notes.

parent ffada140
...@@ -107,6 +107,7 @@ ...@@ -107,6 +107,7 @@
(declaim (inline write-n-signed-bytes)) (declaim (inline write-n-signed-bytes))
(defun write-n-signed-bytes (value n stream) (defun write-n-signed-bytes (value n stream)
(declare (optimize speed) (declare (optimize speed)
(sb-ext:muffle-conditions sb-ext:compiler-note)
(fixnum n)) (fixnum n))
(ecase n (ecase n
(1 (setf (sb-sys:signed-sap-ref-8 (advance-stream n stream) 0) (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