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