OSCL/Deflate
2
0
Fork 0
mirror of https://github.com/pmai/Deflate.git synced 2025-12-21 21:14:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

Remove no longer needed SBCL muffle declarations

Browse Source
This commit is contained in:
Pierre R. Mai
2023-05-19 00:33:46 +02:00
parent f8584eefd2
commit c6163cc165
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
deflate.lisp
View File

@ -111,8 +111,7 @@
(declare (type (unsigned-byte 32) crc) (declare (type (unsigned-byte 32) crc)
(type (simple-array (unsigned-byte 8) (*)) buffer) (type (simple-array (unsigned-byte 8) (*)) buffer)
(type fixnum end) (type fixnum end)
(optimize (speed 3) (debug 0) (space 0) (safety 0)) (optimize (speed 3) (debug 0) (space 0) (safety 0)))
#+sbcl (sb-ext:muffle-conditions sb-ext:compiler-note))
(let ((s1 (ldb (byte 16 0) crc)) (let ((s1 (ldb (byte 16 0) crc))
(s2 (ldb (byte 16 16) crc))) (s2 (ldb (byte 16 16) crc)))
(declare (type (unsigned-byte 32) s1 s2)) (declare (type (unsigned-byte 32) s1 s2))
@ -159,8 +158,7 @@
(declare (type (unsigned-byte 32) crc) (declare (type (unsigned-byte 32) crc)
(type (simple-array (unsigned-byte 8) (*)) buffer) (type (simple-array (unsigned-byte 8) (*)) buffer)
(type fixnum end) (type fixnum end)
(optimize (speed 3) (debug 0) (space 0) (safety 0)) (optimize (speed 3) (debug 0) (space 0) (safety 0)))
#+sbcl (sb-ext:muffle-conditions sb-ext:compiler-note))
(let ((table (load-time-value (generate-crc32-table))) (let ((table (load-time-value (generate-crc32-table)))
(cur (logxor crc #xffffffff))) (cur (logxor crc #xffffffff)))
(declare (type (simple-array (unsigned-byte 32) (256)) table) (declare (type (simple-array (unsigned-byte 32) (256)) table)
@ -212,8 +210,7 @@
(declaim (inline sliding-window-stream-write-byte)) (declaim (inline sliding-window-stream-write-byte))
(defun sliding-window-stream-write-byte (stream byte) (defun sliding-window-stream-write-byte (stream byte)
(declare (type sliding-window-stream stream) (type (unsigned-byte 8) byte) (declare (type sliding-window-stream stream) (type (unsigned-byte 8) byte))
#+sbcl (sb-ext:muffle-conditions sb-ext:compiler-note))
"Write a single byte to the sliding-window-stream." "Write a single byte to the sliding-window-stream."
(let ((end (sliding-window-stream-buffer-end stream))) (let ((end (sliding-window-stream-buffer-end stream)))
(declare (type fixnum end)) (declare (type fixnum end))