From 34aded4d7de1bac50014f9500e937290e3af455e Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Wed, 7 Jan 2009 01:53:50 +0100 Subject: [PATCH] SINGLE-CHANNEL-ZETA-STREAM and SINGLE-CHANNEL-ZETA-STREAM must inherit from ZETA-STREAM. --- io.streams/zeta/stream.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/io.streams/zeta/stream.lisp b/io.streams/zeta/stream.lisp index 7e334e8..9206d2a 100644 --- a/io.streams/zeta/stream.lisp +++ b/io.streams/zeta/stream.lisp @@ -9,12 +9,13 @@ ;;; Classes and Types ;;;------------------------------------------------------------------------- -(defclass zeta-stream () ()) +(defclass zeta-stream () + ((external-format :reader external-format-of))) -(defclass single-channel-zeta-stream (single-channel-buffer) +(defclass single-channel-zeta-stream (single-channel-buffer zeta-stream) ()) -(defclass dual-channel-zeta-stream (dual-channel-buffer) +(defclass dual-channel-zeta-stream (dual-channel-buffer zeta-stream) ()) -- 2.11.4.GIT