[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-serv4141

Modified Files:
	sequences.lisp 
Log Message:
Fixed typo decare -> declare.

Date: Wed Aug 24 09:29:00 2005
Author: ffjeld

Index: movitz/losp/muerte/sequences.lisp
diff -u movitz/losp/muerte/sequences.lisp:1.26 movitz/losp/muerte/sequences.lisp:1.27
--- movitz/losp/muerte/sequences.lisp:1.26	Tue Aug 23 19:58:19 2005
+++ movitz/losp/muerte/sequences.lisp	Wed Aug 24 09:28:59 2005
@@ -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.26 2005/08/23 17:58:19 ffjeld Exp $
+;;;; $Id: sequences.lisp,v 1.27 2005/08/24 07:28:59 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -813,12 +813,12 @@
 		    (do ((i start1 (1+ i))
 			 (j start2 (1+ j)))
 			((>= i end1) sequence-1)
-		      (decare (index i j))
+		      (declare (index i j))
 		      (setf (sequence-1-ref i) (sequence-2-ref j))))
 		   (t (do ((i start1 (1+ i))
 			   (j start2 (1+ j)))
 			  ((>= j end2) sequence-1)
-			(decare (index i j))
+			(declare (index i j))
 			(setf (sequence-1-ref i) (sequence-2-ref j))))))))
 	     (list
 	      (with-subvector-accessor (sequence-1-ref sequence-1 start1 end1)