Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv9984 Modified Files: sequences.lisp Log Message: Added a type declaration. Date: Mon Aug 16 01:26:41 2004 Author: ffjeld Index: movitz/losp/muerte/sequences.lisp diff -u movitz/losp/muerte/sequences.lisp:1.16 movitz/losp/muerte/sequences.lisp:1.17 --- movitz/losp/muerte/sequences.lisp:1.16 Thu Aug 12 10:01:26 2004 +++ movitz/losp/muerte/sequences.lisp Mon Aug 16 01:26:40 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Tue Sep 11 14:19:23 2001 ;;;; -;;;; $Id: sequences.lisp,v 1.16 2004/08/12 17:01:26 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.17 2004/08/16 08:26:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -74,7 +74,8 @@ (list (do ((x sequence (cdr x)) (length 0 (1+ length))) - ((null x) length))))) + ((null x) length) + (declare (index length)))))) (defun length%list (sequence) (do ((length 0 (1+ length))