io.streams/zeta/types.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Various types.
   4 ;;;
   5
   6 (in-package :io.zeta-streams)
   7
   8 ;;;-----------------------------------------------------------------------------
   9 ;;; Types
  10 ;;;-----------------------------------------------------------------------------
  11
  12 (deftype ub8  () '(unsigned-byte  8))
  13 (deftype ub16 () '(unsigned-byte 16))
  14 (deftype ub32 () '(unsigned-byte 32))
  15 (deftype ub64 () '(unsigned-byte 64))
  16 (deftype sb8  () '(signed-byte  8))
  17 (deftype sb16 () '(signed-byte 16))
  18 (deftype sb32 () '(signed-byte 32))
  19 (deftype sb64 () '(signed-byte 64))
  20
  21 (deftype ub8-vector (&optional (size '*))
  22   `(array ub8 (,size)))
  23
  24 (deftype ub8-simple-vector (&optional (size '*))
  25   `(simple-array ub8 (,size)))
  26
  27 (deftype ub16-vector (&optional (size '*))
  28   `(array ub16 (,size)))
  29
  30 (deftype ub16-simple-vector (&optional (size '*))
  31   `(simple-array ub16 (,size)))