Update Travis CI setup

The previous fix in 929d3f9bc9 has worse
performance than not declaring any type on bits, so we now remove the
declaration completely.

.travis.yml

@@ -0,0 +1,26 @@
+language: lisp
+sudo: required
+
+env:
+  matrix:
+    - LISP=abcl
+    - LISP=allegro
+    - LISP=sbcl
+    - LISP=sbcl32
+    - LISP=ccl
+    - LISP=ccl32
+    - LISP=clisp
+    - LISP=clisp32
+    - LISP=cmucl
+    - LISP=ecl
+
+matrix:
+  allow_failures:
+    - env: LISP=ccl32
+    - env: LISP=cmucl
+
+install:
+  - curl -L https://github.com/luismbo/cl-travis/raw/master/install.sh | sh
+
+script:
+        - cl -e '(ql:quickload "deflate")'

COPYING

@@ -1,4 +1,4 @@
-  Copyright (C) 2000-2009 PMSF IT Consulting Pierre R. Mai
+  Copyright (C) 2000-2020 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

NEWS

@@ -0,0 +1,25 @@
+Release 1.0.3
+=============
+
+ * Correct type declarations for LispWorks simple int32 vectors.
+
+Release 1.0.2
+=============
+
+ * Adjust package name specifications to belatedly support ACL in its
+   "modern-mode".
+
+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.

README.md

@@ -1,6 +1,8 @@
-This library is an implementation of Deflate (RFC 1951) decompression,
+[![Build Status](https://travis-ci.org/pmai/Deflate.svg?branch=master)](https://travis-ci.org/pmai/Deflate)
-with optional support for ZLIB-style (RFC 1950) and gzip-style (RFC
+
-1952) wrappers of deflate streams.  It currently does not handle
+This library is an implementation of Deflate ([RFC 1951][]) decompression,
+with optional support for ZLIB-style ([RFC 1950][]) and gzip-style
+([RFC 1952][]) wrappers of deflate streams.  It currently does not handle
 compression, although this is a natural extension.
 
 The implementation should be portable across all ANSI compliant CL
@@ -19,3 +21,7 @@ in the file COPYING and the header of each source file.
 
 Please direct any feedback to pmai@pmsf.de.  A git repository of this
 library is available under http://github.com/pmai/Deflate/tree/master
+
+[RFC 1951]: https://tools.ietf.org/html/rfc1951
+[RFC 1950]: https://tools.ietf.org/html/rfc1950
+[RFC 1952]: https://tools.ietf.org/html/rfc1952

deflate.asd

@@ -1,6 +1,6 @@
 ;;;; Deflate --- RFC 1951 Deflate Decompression
 ;;;;
-;;;; Copyright (C) 2000-2009 PMSF IT Consulting Pierre R. Mai.
+;;;; Copyright (C) 2000-2020 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
@@ -28,7 +28,7 @@
 ;;;; 
 ;;;; $Id$
 
-(cl:in-package "CL-USER")
+(cl:in-package #:cl-user)
 
 ;;;; %File Description:
 ;;;; 
@@ -37,7 +37,10 @@
 ;;;; ASDF system definition facility.
 ;;;; 
 
-(asdf:defsystem "Deflate"
+(asdf:defsystem "deflate"
   :description "Deflate Decompression Library"
   :author "Pierre R. Mai <pmai@pmsf.de>"
+  :maintainer "Pierre R. Mai <pmai@pmsf.de>"
+  :licence "MIT/X11"
+  :version "1.0.3"
   :components ((:file "deflate")))

deflate.lisp

@@ -1,6 +1,6 @@
 ;;;; Deflate --- RFC 1951 Deflate Decompression
 ;;;;
-;;;; Copyright (C) 2000-2009 PMSF IT Consulting Pierre R. Mai.
+;;;; Copyright (C) 2000-2020 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
@@ -28,15 +28,15 @@
 ;;;; 
 ;;;; $Id$
 
-(cl:defpackage "DEFLATE"
+(cl:defpackage #:deflate
-  (:use "COMMON-LISP")
+  (:use #:common-lisp)
   (:export #:decompression-error #:deflate-decompression-error
            #:zlib-decompression-error #:gzip-decompression-error
            #:inflate-stream
            #:inflate-zlib-stream #:parse-zlib-header #:parse-zlib-footer
            #:inflate-gzip-stream #:parse-gzip-header #:parse-gzip-footer))
 
-(cl:in-package "DEFLATE")
+(cl:in-package #:deflate)
 
 ;;;; %File Description:
 ;;;; 
@@ -133,7 +133,7 @@
   "CRC-32 Polynomial as per RFC 1952.")
 
 (declaim (ftype #-lispworks (function () (simple-array (unsigned-byte 32) (256)))
-                #+lispworks (function () (sys:simple-int32-vector 256))
+                #+lispworks (function () sys:simple-int32-vector)
                 generate-crc32-table))
 (defun generate-crc32-table ()
   (let ((result #-lispworks (make-array 256 :element-type '(unsigned-byte 32))
@@ -182,7 +182,7 @@
         (cur (sys:int32-lognot (sys:integer-to-int32 
                                 (dpb (ldb (byte 32 0) crc) (byte 32 0) 
                                      (if (logbitp 31 crc) -1 0))))))
-    (declare (type (sys:simple-int32-vector 256) table)
+    (declare (type sys:simple-int32-vector table)
              (type sys:int32 cur))
     (dotimes (i end)
       (declare (type fixnum i))
@@ -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