[movitz-cvs] CVS update: movitz/losp/muerte/more-macros.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv29045

Modified Files:
	more-macros.lisp 
Log Message:
Add some type declarations.

Date: Fri Aug 26 21:39:27 2005
Author: ffjeld

Index: movitz/losp/muerte/more-macros.lisp
diff -u movitz/losp/muerte/more-macros.lisp:1.28 movitz/losp/muerte/more-macros.lisp:1.29
--- movitz/losp/muerte/more-macros.lisp:1.28	Tue May 24 08:33:40 2005
+++ movitz/losp/muerte/more-macros.lisp	Fri Aug 26 21:39:26 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Jun  7 15:05:57 2002
 ;;;;                
-;;;; $Id: more-macros.lisp,v 1.28 2005/05/24 06:33:40 ffjeld Exp $
+;;;; $Id: more-macros.lisp,v 1.29 2005/08/26 19:39:26 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -117,8 +117,8 @@
 	   , at declarations-and-body
 	   ,result-form))
        (t `(do ((,var 0 (1+ ,var)))
-	       ((>= ,var ,count-form) ,result-form)
-	     (declare (type (integer 0 ,count-form) ,var))
+	       ((>= ,var ,count) ,result-form)
+	     (declare (type (integer 0 ,count) ,var))
 	     , at declarations-and-body))))))
 
 (defmacro dotimes ((var count-form &optional result-form) &body declarations-and-body)