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@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 @@ ,@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)) ,@declarations-and-body))))))

(defmacro dotimes ((var count-form &optional result-form) &body declarations-and-body)