[flexi-streams-cvs] r7 - branches/hans

[eweitz at common-lisp.net]

Author: eweitz
Date: Thu May  1 10:30:03 2008
New Revision: 7

Modified:
   branches/hans/input.lisp
Log:
Another fixnum that wants to be an integer


Modified: branches/hans/input.lisp
==============================================================================
--- branches/hans/input.lisp	(original)
+++ branches/hans/input.lisp	Thu May  1 10:30:03 2008
@@ -43,8 +43,8 @@
                    (octet-stack flexi-stream-octet-stack)
                    (s flexi-stream-stream))
       flexi-input-stream
-    (declare (fixnum position)
-             (type (or null fixnum) bound))
+    (declare (integer position)
+             (type (or null integer) bound))
     (when (and bound
                (>= position bound))
       (return-from read-byte* nil))