From c6163cc1655bcc6856f63d6022c19a203be92ecd Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Fri, 19 May 2023 00:33:46 +0200 Subject: [PATCH] Remove no longer needed SBCL muffle declarations --- deflate.lisp | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/deflate.lisp b/deflate.lisp index a2f4376..a7dd90c 100644 --- a/deflate.lisp +++ b/deflate.lisp @@ -111,8 +111,7 @@ (declare (type (unsigned-byte 32) crc) (type (simple-array (unsigned-byte 8) (*)) buffer) (type fixnum end) - (optimize (speed 3) (debug 0) (space 0) (safety 0)) - #+sbcl (sb-ext:muffle-conditions sb-ext:compiler-note)) + (optimize (speed 3) (debug 0) (space 0) (safety 0))) (let ((s1 (ldb (byte 16 0) crc)) (s2 (ldb (byte 16 16) crc))) (declare (type (unsigned-byte 32) s1 s2)) @@ -159,8 +158,7 @@ (declare (type (unsigned-byte 32) crc) (type (simple-array (unsigned-byte 8) (*)) buffer) (type fixnum end) - (optimize (speed 3) (debug 0) (space 0) (safety 0)) - #+sbcl (sb-ext:muffle-conditions sb-ext:compiler-note)) + (optimize (speed 3) (debug 0) (space 0) (safety 0))) (let ((table (load-time-value (generate-crc32-table))) (cur (logxor crc #xffffffff))) (declare (type (simple-array (unsigned-byte 32) (256)) table) @@ -212,8 +210,7 @@ (declaim (inline sliding-window-stream-write-byte)) (defun sliding-window-stream-write-byte (stream byte) - (declare (type sliding-window-stream stream) (type (unsigned-byte 8) byte) - #+sbcl (sb-ext:muffle-conditions sb-ext:compiler-note)) + (declare (type sliding-window-stream stream) (type (unsigned-byte 8) byte)) "Write a single byte to the sliding-window-stream." (let ((end (sliding-window-stream-buffer-end stream))) (declare (type fixnum end))