[cl-enumeration-cvs] CVS update: enumerations/list-enumerations.lisp

[Marco Antoniotti]

Update of /project/cl-enumeration/cvsroot/enumerations
In directory common-lisp.net:/tmp/cvs-serv9721

Modified Files:
	list-enumerations.lisp 
Log Message:
Fixed behavior of RESET, which was incorrect in the presence of START
different from 0.

Date: Thu Mar 10 23:40:57 2005
Author: mantoniotti

Index: enumerations/list-enumerations.lisp
diff -u enumerations/list-enumerations.lisp:1.1.1.1 enumerations/list-enumerations.lisp:1.2
--- enumerations/list-enumerations.lisp:1.1.1.1	Wed Mar  9 19:18:02 2005
+++ enumerations/list-enumerations.lisp	Thu Mar 10 23:40:57 2005
@@ -51,7 +51,8 @@
 	   (setf cursor (rest cursor))))))
 
 (defmethod reset ((x list-enumeration))
-  (setf (enumeration-cursor x) (enumeration-object x)))
+  (setf (enumeration-cursor x)
+	(nthcdr (enumeration-start x) (enumeration-object x))))
 
 
 (defmethod current ((x list-enumeration) &optional (errorp t) (default nil))