X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fclasses.lisp;h=6007d6e56dbf04f42f994cdf66b24589110ad514;hb=77d1a39f28fe8d240cf441a9a54a80d4bc98ea52;hp=0bc782d1bcadf2aa02acc803e8eeb7b6a802e46f;hpb=30dcf2bc8bc7a5b33f19e01b77ac3296352fb090;p=sbcl.git

diff --git a/contrib/sb-simple-streams/classes.lisp b/contrib/sb-simple-streams/classes.lisp
index 0bc782d..6007d6e 100644
--- a/contrib/sb-simple-streams/classes.lisp
+++ b/contrib/sb-simple-streams/classes.lisp
@@ -132,7 +132,7 @@
    (max-out-pos :initform 0 :type fixnum)))
 
 ;;; A stream with a string as buffer.
-(def-stream-class string-simple-stream (simple-stream)
+(def-stream-class string-simple-stream (simple-stream string-stream)
   ())