;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: buff-input.lisp,v 1.8 2003/05/06 01:50:04 kevin Exp $
+;;;; $Id: buff-input.lisp,v 1.9 2003/05/06 01:50:46 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(declare (optimize (speed 3) (space 0) (safety 0)))
(let ((pos 0)
(done nil))
- (declare (fixnum pos) (boolean done))
+ (declare (fixnum pos) (type boolean done))
(setf (fill-pointer linebuffer) 0)
(do ((c (read-char strm nil +eof-char+)
(read-char strm nil +eof-char+)))