0.8.0.11:

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

diff --git a/contrib/sb-simple-streams/cl.lisp b/contrib/sb-simple-streams/cl.lisp
index 1948f18..38335e4 100644 (file)
--- a/contrib/sb-simple-streams/cl.lisp
+++ b/contrib/sb-simple-streams/cl.lisp
@@ -995,7 +995,7 @@ simple-streams proposal.")
 ;;;
 
 (defmethod shared-initialize :after ((instance simple-stream) slot-names
-                                    &rest initargs &allow-other-keys)
+                                    &rest initargs &key &allow-other-keys)
   (declare (ignore slot-names))
   (unless (slot-boundp instance 'melded-stream)
     (setf (slot-value instance 'melded-stream) instance)