specials.lisp

   1 ;;;; $Id: specials.lisp,v 1.4 2007/12/19 20:52:49 xach Exp $
   2
   3 (in-package #:salza2)
   4
   5 (defparameter +input-limit+ 32768)
   6 (defparameter +input-limit-mask+ (1- +input-limit+))
   7 (defparameter +buffer-size+ (* +input-limit+ 2))
   8 (defparameter +buffer-size-mask+ (1- +buffer-size+))
   9
  10 (defparameter +input-size+ #x10000)
  11 (defparameter +input-mask+ #x0FFFF)
  12 (defparameter +hashes-size+ 8209)
  13 (defparameter +radix+ 109)
  14 (defparameter +rmax+ (* +radix+ +radix+))
  15
  16 (defparameter +bitstream-buffer-size+ 4096)
  17 (defparameter +bitstream-buffer-mask+ (1- +bitstream-buffer-size+))
  18 (defparameter +bitstream-buffer-bits+ (* +bitstream-buffer-size+ 8))
  19 (defparameter +bitstream-buffer-bitmask+ (1- +bitstream-buffer-bits+))
  20
  21 (defconstant +final-block+ #b1)
  22 (defconstant +fixed-tables+ #b01)
  23
  24 (defparameter *crc32-table* (crc32-table))