0.7.3.1:

[sbcl.git] / src / code / stream.lisp

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index e93c89c..5788195 100644 (file)
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1359,7 +1359,7 @@
 
 (defstruct (case-frob-stream
            (:include ansi-stream
-                     (:misc #'case-frob-misc))
+                     (misc #'case-frob-misc))
            (:constructor %make-case-frob-stream (target out sout))
            (:copier nil))
   (target (missing-arg) :type stream))