March 2005 - cl-enumeration-cvs@lists.common-lisp.net

[cl-enumeration-cvs] CVS update: enumerations/docs/html/enumerations-hierarchy.sxd
by mantoniotti＠common-lisp.net 10 Mar '05

10 Mar '05

Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv11755 Modified Files: enumerations-hierarchy.sxd Log Message: Updated hierarchy image. Date: Fri Mar 11 00:05:54 2005 Author: mantoniotti Index: enumerations/docs/html/enumerations-hierarchy.sxd

1 0

[cl-enumeration-cvs] CVS update: enumerations/docs/html/enumerations-hierarchy.jpg
by mantoniotti＠common-lisp.net 10 Mar '05

10 Mar '05

Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv11738 Modified Files: enumerations-hierarchy.jpg Log Message: Updated hierarchy image. Date: Fri Mar 11 00:05:35 2005 Author: mantoniotti Index: enumerations/docs/html/enumerations-hierarchy.jpg

1 0

[cl-enumeration-cvs] CVS update: enumerations/docs/html/enumerations-hierarchy.GIF
by mantoniotti＠common-lisp.net 10 Mar '05

10 Mar '05

Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv11639 Modified Files: enumerations-hierarchy.GIF Log Message: Updated hierarchy image. Date: Fri Mar 11 00:04:58 2005 Author: mantoniotti Index: enumerations/docs/html/enumerations-hierarchy.GIF

1 0

[cl-enumeration-cvs] CVS update: enumerations/docs/html/enumerations-hierarchy.eps
by mantoniotti＠common-lisp.net 10 Mar '05

10 Mar '05

Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv11573 Modified Files: enumerations-hierarchy.eps Log Message: Updated hierarchy image. Date: Fri Mar 11 00:04:42 2005 Author: mantoniotti Index: enumerations/docs/html/enumerations-hierarchy.eps

1 0

[cl-enumeration-cvs] CVS update: enumerations/list-enumerations.lisp
by mantoniotti＠common-lisp.net 10 Mar '05

10 Mar '05

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

1 0

[cl-enumeration-cvs] CVS update: enumerations/docs/html/reset-function.html
by mantoniotti＠common-lisp.net 10 Mar '05

10 Mar '05

Update of /project/cl-enumeration/cvsroot/enumerations/docs/html In directory common-lisp.net:/tmp/cvs-serv9663 Added Files: reset-function.html Log Message: Added documentation for RESET. Date: Thu Mar 10 23:35:03 2005 Author: mantoniotti

1 0

[cl-enumeration-cvs] CVS update: enumerations/COPYING
by mantoniotti＠common-lisp.net 10 Mar '05

10 Mar '05

Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv7884 Added Files: COPYING Log Message: Added README, COPYING and INSTALLATION files. Date: Thu Mar 10 23:12:00 2005 Author: mantoniotti

1 0

[cl-enumeration-cvs] CVS update: enumerations/INSTALLATION
by mantoniotti＠common-lisp.net 10 Mar '05

10 Mar '05

Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv7863 Added Files: INSTALLATION Log Message: Added README, COPYING and INSTALLATION files. Date: Thu Mar 10 23:11:41 2005 Author: mantoniotti

1 0

[cl-enumeration-cvs] CVS update: enumerations/README
by mantoniotti＠common-lisp.net 10 Mar '05

10 Mar '05

Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv7806 Added Files: README Log Message: Added README, COPYING and INSTALLATION files. Date: Thu Mar 10 23:08:14 2005 Author: mantoniotti

1 0

[cl-enumeration-cvs] CVS update: enumerations/enumerations.lisp
by mantoniotti＠common-lisp.net 10 Mar '05

10 Mar '05

Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv26578 Modified Files: enumerations.lisp Log Message: Removed dead code. Date: Thu Mar 10 19:08:50 2005 Author: mantoniotti Index: enumerations/enumerations.lisp diff -u enumerations/enumerations.lisp:1.2 enumerations/enumerations.lisp:1.3 --- enumerations/enumerations.lisp:1.2 Thu Mar 10 19:07:05 2005 +++ enumerations/enumerations.lisp Thu Mar 10 19:08:50 2005 @@ -85,17 +85,7 @@ ;;;--------------------------------------------------------------------------- ;;; Implementation. - -#| Wrong and useless -(defmacro next-element (enum - &key (of-type t type-supplied-p) - (default nil default-supplied-p)) - (if default-supplied-p - `(the ,(if type-supplied-p of-type (element-type enum)) - (next ,enum ,default)) - `(the ,(if type-supplied-p of-type (element-type enum)) - (next ,enum)))) -|# +;;; Bare bone general implementation of some methods. (defmethod next ((x enumeration) &optional default)

1 0