io.streams/zeta/stream.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Streams.
   4 ;;;
   5
   6 (in-package :io.zeta-streams)
   7
   8 ;;;-------------------------------------------------------------------------
   9 ;;; Classes and Types
  10 ;;;-------------------------------------------------------------------------
  11
  12 (defclass zeta-stream ()
  13   ((external-format :reader external-format-of)))
  14
  15 (defclass single-channel-zeta-stream (single-channel-buffer zeta-stream)
  16   ())
  17
  18 (defclass dual-channel-zeta-stream (dual-channel-buffer zeta-stream)
  19   ())
  20 \f
  21
  22 ;;;-------------------------------------------------------------------------
  23 ;;; Generic Functions
  24 ;;;-------------------------------------------------------------------------
  25
  26 \f
  27
  28 ;;;-------------------------------------------------------------------------
  29 ;;; Constructors
  30 ;;;-------------------------------------------------------------------------
  31