X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=buff-input.lisp;h=d5b54be534f13e0847d24bb20492e63c65b17c5d;hp=36ff2276527c3faa6ec0616937e76f3b1f7ff8d2;hb=c42a864dc07721a3e9504094b5b8095cb5f3d03f;hpb=14d0c045792f76bbc92f4d3304a608603d0b7524 diff --git a/buff-input.lisp b/buff-input.lisp index 36ff227..d5b54be 100644 --- a/buff-input.lisp +++ b/buff-input.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: buff-input.lisp,v 1.8 2003/05/06 01:50:04 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -158,7 +158,7 @@ (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+)))