2 ;;; Copyright (c) 2007 Zachary Beane, All Rights Reserved
4 ;;; Redistribution and use in source and binary forms, with or without
5 ;;; modification, are permitted provided that the following conditions
8 ;;; * Redistributions of source code must retain the above copyright
9 ;;; notice, this list of conditions and the following disclaimer.
11 ;;; * Redistributions in binary form must reproduce the above
12 ;;; copyright notice, this list of conditions and the following
13 ;;; disclaimer in the documentation and/or other materials
14 ;;; provided with the distribution.
16 ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
17 ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
18 ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
20 ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
22 ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
23 ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
24 ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
25 ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
26 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
31 (defparameter +input-limit
+ 32768)
32 (defparameter +input-limit-mask
+ (1- +input-limit
+))
33 (defparameter +buffer-size
+ (* +input-limit
+ 2))
34 (defparameter +buffer-size-mask
+ (1- +buffer-size
+))
36 (defparameter +input-size
+ #x10000
)
37 (defparameter +input-mask
+ #x0FFFF
)
38 (defparameter +hashes-size
+ 8191)
39 (defparameter +radix
+ 109)
40 (defparameter +rmax
+ (* +radix
+ +radix
+))
42 (defparameter +bitstream-buffer-size
+ 4096)
43 (defparameter +bitstream-buffer-mask
+ (1- +bitstream-buffer-size
+))
44 (defparameter +bitstream-buffer-bits
+ (* +bitstream-buffer-size
+ 8))
45 (defparameter +bitstream-buffer-bitmask
+ (1- +bitstream-buffer-bits
+))
47 (defconstant +final-block
+ #b1
)
48 (defconstant +fixed-tables
+ #b01
)