0.8.20.6:

[sbcl.git] / contrib / sb-simple-streams / file.lisp

diff --git a/contrib/sb-simple-streams/file.lisp b/contrib/sb-simple-streams/file.lisp
index 5fd3d70..2e20b2a 100644 (file)
--- a/contrib/sb-simple-streams/file.lisp
+++ b/contrib/sb-simple-streams/file.lisp
@@ -14,7 +14,7 @@
 ;;;
 ;;; Definition of File-Simple-Stream and relations
 
-(def-stream-class file-simple-stream (single-channel-simple-stream)
+(def-stream-class file-simple-stream (single-channel-simple-stream file-stream)
   ((pathname :initform nil :initarg :pathname)
    (filename :initform nil :initarg :filename)
    (original :initform nil :initarg :original)