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

Compare commits

base: OSCL:release-1.0.0
Branches Tags
OSCL:master OSCL:fix/deflate-test-portability OSCL:fix/erroneous-type-decl-in-test-code OSCL:gh-pages
OSCL:release-1.0.4 OSCL:release-1.0.3 OSCL:release-1.0.2 OSCL:release-1.0.1 OSCL:release-1.0.0
...
compare: OSCL:release-1.0.1
Branches Tags
OSCL:master OSCL:fix/deflate-test-portability OSCL:fix/erroneous-type-decl-in-test-code OSCL:gh-pages
OSCL:release-1.0.4 OSCL:release-1.0.3 OSCL:release-1.0.2 OSCL:release-1.0.1 OSCL:release-1.0.0

5 Commits
release-1. ... release-1.

Author SHA1 Message Date
Pierre R. Mai
42f1aaab07 Add NEWS file with changes for release 1.0.1. 2010-10-09 03:54:23 +02:00
Pierre R. Mai
3f472585bd Update copyright notices for new year. 2010-10-09 03:53:10 +02:00
Pierre R. Mai
797adba286 Change fix for ecl bug in bit-stream-read-bits for improved performance. 
The previous fix in 929d3f9bc9 has worse
performance than not declaring any type on bits, so we now remove the
declaration completely.
 2010-10-09 03:46:03 +02:00
Pierre R. Mai
929d3f9bc9 Add work-around bit-stream-read-bits for ecl bug in (unsigned-byte 8) negation. 
The compiler in ecl version 10.7.1 generates erroneous code for the negation
of bits in bit-stream-read-bits if bits is declared as an (unsigned-byte 8).
Hence we declare bits as a (signed-byte 8) for ecl, given that ecl does not
generate optimal code in either case, but correct code for the later case.
 2010-10-08 20:14:37 +02:00
Pierre R. Mai
b18f8fa1da Renamed system from Deflate to deflate to aid symbol naming users. 
Whereas asdf system names are strings and hence case-sensitive, many users
of asdf rely on symbol names being treated specially and down-cased to
system names.  That does not work with "Deflate" but does work with "deflate".
NB that this is a non-compatible change for existing users.
 2010-10-08 19:56:09 +02:00
4 changed files with 19 additions and 5 deletions
Expand all files Collapse all files

2
COPYING
View File

@ -1,4 +1,4 @@
Copyright (C) 2000-2009 PMSF IT Consulting Pierre R. Mai
Copyright (C) 2000-2010 PMSF IT Consulting Pierre R. Mai
Permission is hereby granted, free of charge, to any person obtaining
a copy of this software and associated documentation files (the

14
NEWS Normal file
View File

@ -0,0 +1,14 @@
Release 1.0.1
=============
* Renamed Deflate system from Deflate to deflate to support
convenience references to system by symbol rather than string name.
NOTE: This is an incompatible change from all prior releases, all
references to "Deflate" in system definitions will have to be
changed to "deflate" or :deflate or equivalents.
* Preliminary support for ecl has been added: Due to bugs in current
versions of ecl (10.7.1), prior versions of Deflate do not work out
of the box. This version should work better, once fixnum-specialized
arrays work again on 64bit versions of ecl in an upcoming release of
ecl.

4
Deflate.asd → deflate.asd
View File

@ -1,6 +1,6 @@
;;;; Deflate --- RFC 1951 Deflate Decompression
;;;;
;;;; Copyright (C) 2000-2009 PMSF IT Consulting Pierre R. Mai.
;;;; Copyright (C) 2000-2010 PMSF IT Consulting Pierre R. Mai.
;;;;
;;;; Permission is hereby granted, free of charge, to any person obtaining
;;;; a copy of this software and associated documentation files (the
@ -37,7 +37,7 @@
;;;; ASDF system definition facility.
;;;;
(asdf:defsystem "Deflate"
(asdf:defsystem "deflate"
:description "Deflate Decompression Library"
:author "Pierre R. Mai <pmai@pmsf.de>"
:components ((:file "deflate")))

4
deflate.lisp
View File

@ -1,6 +1,6 @@
;;;; Deflate --- RFC 1951 Deflate Decompression
;;;;
;;;; Copyright (C) 2000-2009 PMSF IT Consulting Pierre R. Mai.
;;;; Copyright (C) 2000-2010 PMSF IT Consulting Pierre R. Mai.
;;;;
;;;; Permission is hereby granted, free of charge, to any person obtaining
;;;; a copy of this software and associated documentation files (the
@ -287,7 +287,7 @@
(declaim (inline bit-stream-read-bits))
(defun bit-stream-read-bits (stream bits)
(declare (type bit-stream stream) (type (unsigned-byte 8) bits))
(declare (type bit-stream stream) #-ecl (type (unsigned-byte 8) bits))
"Read single or multiple bits from the given bit-stream."
(loop while (< (bit-stream-bit-count stream) bits)
do