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

Change fix for ecl bug in bit-stream-read-bits for improved performance.

Browse Source 
The previous fix in 929d3f9bc9 has worse
performance than not declaring any type on bits, so we now remove the
declaration completely.
This commit is contained in:
Pierre R. Mai
2010-10-09 03:46:03 +02:00
parent 929d3f9bc9
commit 797adba286
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
deflate.lisp
View File

@ -287,8 +287,7 @@
(declaim (inline bit-stream-read-bits)) (declaim (inline bit-stream-read-bits))
(defun bit-stream-read-bits (stream bits) (defun bit-stream-read-bits (stream bits)
(declare (type bit-stream stream) (type #-ecl (unsigned-byte 8) (declare (type bit-stream stream) #-ecl (type (unsigned-byte 8) bits))
#+ecl (signed-byte 8) bits))
"Read single or multiple bits from the given bit-stream." "Read single or multiple bits from the given bit-stream."
(loop while (< (bit-stream-bit-count stream) bits) (loop while (< (bit-stream-bit-count stream) bits)
do do