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

[Frode Vatvedt Fjeld]

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 at 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