1 ;;;; class definitions for the SBCL Gray streams implementation, based on the
2 ;;;; CMU CL Gray streams implementation, based on the stream-definition-by-user
3 ;;;; proposal by David N. Gray
5 ;;;; This software is part of the SBCL system. See the README file for
8 ;;;; This software is in the public domain and is provided with absolutely no
9 ;;;; warranty. See the COPYING and CREDITS files for more information.
11 (in-package "SB-GRAY")
16 ;;; Bootstrap the FUNDAMENTAL-STREAM class.
17 (let ((sb-pcl::*pcl-class-boot* 'fundamental-stream))
18 (defclass fundamental-stream (standard-object stream)
21 (:documentation "the base class for all CLOS streams")))
23 ;;; Define the stream classes.
24 (defclass fundamental-input-stream (fundamental-stream))
26 (defclass fundamental-output-stream (fundamental-stream))
28 (defclass fundamental-character-stream (fundamental-stream))
30 (defclass fundamental-binary-stream (fundamental-stream))
32 (defclass fundamental-character-input-stream
33 (fundamental-input-stream fundamental-character-stream))
35 (defclass fundamental-character-output-stream
36 (fundamental-output-stream fundamental-character-stream))
38 (defclass fundamental-binary-input-stream
39 (fundamental-input-stream fundamental-binary-stream))
41 (defclass fundamental-binary-output-stream
42 (fundamental-output-stream fundamental-binary-stream))
44 ;;; example character input and output streams
46 (defclass character-output-stream (fundamental-character-output-stream)
47 ((lisp-stream :initarg :lisp-stream
48 :accessor character-output-stream-lisp-stream)))
50 (defclass character-input-stream (fundamental-character-input-stream)
51 ((lisp-stream :initarg :lisp-stream
52 :accessor character-input-stream-lisp-stream)))