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

Modified Files: sequences.lisp Log Message: Added some type declarations here and there.

Date: Thu Aug 12 10:01:27 2004 Author: ffjeld

Index: movitz/losp/muerte/sequences.lisp diff -u movitz/losp/muerte/sequences.lisp:1.15 movitz/losp/muerte/sequences.lisp:1.16 --- movitz/losp/muerte/sequences.lisp:1.15 Sun Jul 11 15:47:10 2004 +++ movitz/losp/muerte/sequences.lisp Thu Aug 12 10:01:26 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.15 2004/07/11 22:47:10 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.16 2004/08/12 17:01:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -19,6 +19,9 @@

(in-package muerte)

+(deftype index () + '(integer 0 #x1ffffffe)) + (defun sequencep (x) (or (typep x 'vector) (typep x 'cons))) @@ -691,6 +694,7 @@ (with-subvector-accessor (sequence-ref sequence start end) (do ((i start (1+ i))) ((>= i end)) + (declare (index i)) (setf (sequence-ref i) item)))))) sequence)

@@ -712,6 +716,7 @@ (i (+ start1 length -1) (1- i)) (j (+ start2 length -1) (1- j))) ((< i start1) sequence-1) + (declare (index i j length)) (setf (sequence-1-ref i) (sequence-1-ref j))))) (list