From 166d2bad54e9f9f67ca4fd75f66d18dcb66a7ce0 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 24 Sep 2010 21:45:33 +0000
Subject: [PATCH] Add some declarations to get rid of compiler notes.

---
 pcl/simple-streams/external-formats/crlf.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pcl/simple-streams/external-formats/crlf.lisp b/pcl/simple-streams/external-formats/crlf.lisp
index e2bc9ed7d..f12499c58 100644
--- a/pcl/simple-streams/external-formats/crlf.lisp
+++ b/pcl/simple-streams/external-formats/crlf.lisp
@@ -4,7 +4,7 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/crlf.lisp,v 1.5 2010/07/12 14:42:11 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/crlf.lisp,v 1.6 2010/09/24 21:45:33 rtoy Rel $")
 
 (in-package "STREAM")
 (intl:textdomain "cmucl")
@@ -17,9 +17,11 @@ end-of-line character sequence.")
   (input (state input unput tmp1 tmp2 tmp3 tmp4)
     `(multiple-value-bind (,tmp1 ,tmp2) 
 	 ,input
+       (declare (type kernel:index ,tmp2))
        (when (= ,tmp1 (char-code #\return))
 	 (multiple-value-bind (,tmp3 ,tmp4)
 	     ,input
+	   (declare (type kernel:index ,tmp4))
 	   ;; @@ tmp3 may be NIL, if file ends in LF
 	   (if (= ,tmp3 (char-code #\newline))
 	       (setq ,tmp1 ,tmp3
-- 
GitLab