Date: Friday, September 24, 2010 @ 17:45:33 Author: rtoy Path: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats
Modified: crlf.lisp
Add some declarations to get rid of compiler notes.
-----------+ crlf.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-)
Index: src/pcl/simple-streams/external-formats/crlf.lisp diff -u src/pcl/simple-streams/external-formats/crlf.lisp:1.5 src/pcl/simple-streams/external-formats/crlf.lisp:1.6 --- src/pcl/simple-streams/external-formats/crlf.lisp:1.5 Mon Jul 12 10:42:11 2010 +++ src/pcl/simple-streams/external-formats/crlf.lisp Fri Sep 24 17:45:33 2010 @@ -4,7 +4,7 @@ ;;; This code was written by Paul Foley and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/crlf.lisp,v 1.5 2010-07-12 14:42:11 rtoy Exp $") +(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/crlf.lisp,v 1.6 2010-09-24 21:45:33 rtoy Exp $")
(in-package "STREAM") (intl:textdomain "cmucl") @@ -17,9 +17,11 @@ (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