cl-stream/cl-stream

diff --git a/input-stream.lisp b/input-stream.lisp
index 64cbe53..02d4c74 100644
--- a/input-stream.lisp
+++ b/input-stream.lisp
@@ -66,7 +66,7 @@ until END-ELEMENT is read. Returns two values :
   :EOF if end of file was reached
   :NON-BLOCKING if read would block."))
 
-(defmethod stream-discard-n (stream (count fixnum))
+(defmethod stream-discard-n (stream (count integer))
   (check-if-open stream)
   (loop
      (unless (< 0 count)
diff --git a/io-stream.lisp b/io-stream.lisp
index 3321331..20b0184 100644
--- a/io-stream.lisp
+++ b/io-stream.lisp
@@ -41,7 +41,7 @@
            ((:non-blocking) (setq copy-status :non-blocking)))))
     (values count copy-status)))
 
-(defmethod stream-copy-n (in out (limit fixnum))
+(defmethod stream-copy-n (in out (limit integer))
   (let ((count 0)
         (copy-status t))
     (loop
diff --git a/sequence-output-stream.lisp b/sequence-output-stream.lisp
index 4dcf65f..e72db4d 100644
--- a/sequence-output-stream.lisp
+++ b/sequence-output-stream.lisp
@@ -42,6 +42,3 @@ SEQUENCE-OUTPUT-STREAM."))
 
 (defmethod stream-close ((stream sequence-output-stream))
   (setf (stream-open-p stream) nil))
-
-(defmethod stream-flush ((stream sequence-output-stream))
-  nil)