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))