types.lisp

   1 ;;;; $Id: types.lisp,v 1.3 2007/12/09 00:54:32 xach Exp $
   2
   3 (in-package #:salza2)
   4
   5 (deftype array-index ()
   6   `(mod ,array-dimension-limit))
   7
   8 (deftype octet ()
   9   '(unsigned-byte 8))
  10
  11 (deftype octet-vector ()
  12   '(simple-array (unsigned-byte 8) (*)))
  13
  14 (deftype input-index ()
  15   '(unsigned-byte 16))
  16
  17 (deftype input-buffer ()
  18   `(simple-array (unsigned-byte 8) (,+input-size+)))
  19
  20 (deftype chains-buffer ()
  21   `(simple-array (unsigned-byte 16) (,+input-size+)))
  22
  23 (deftype hashes-buffer ()
  24   `(simple-array (unsigned-byte 16) (,+hashes-size+)))
  25
  26 (deftype hash ()
  27   `(integer 0 ,+hashes-size+))
  28
  29 (deftype bitstream-buffer ()
  30   `(simple-array (unsigned-byte 8) (,+bitstream-buffer-size+)))
  31
  32 (deftype bitstream-buffer-bit-count ()
  33   `(integer 0 ,+bitstream-buffer-bits+))