CMUCL commit: src/pcl/simple-streams/external-formats (crlf.lisp)

Raymond Toy rtoy at common-lisp.net
Fri Sep 24 23:45:33 CEST 2010


    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



More information about the cmucl-commit mailing list