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

[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

[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-serv26545 Modified Files: enumerations.lisp Log Message: Added DEFGENERIC for RESET and some doc strings. Date: Thu Mar 10 19:07:05 2005 Author: mantoniotti Index: enumerations/enumerations.lisp diff -u enumerations/enumerations.lisp:1.1.1.1 enumerations/enumerations.lisp:1.2 --- enumerations/enumerations.lisp:1.1.1.1 Wed Mar 9 19:18:02 2005 +++ enumerations/enumerations.lisp Thu Mar 10 19:07:05 2005 @@ -45,11 +45,14 @@ (defgeneric has-more-elements-p (x) (:method ((x enumeration)) nil) - (:documentation "Checks whether the enumeration has more elements. Obsolete.")) + (:documentation + "Checks whether the enumeration has more elements. Obsolete.")) (defgeneric has-next-p (x) - (:method ((x enumeration)) nil)) + (:method ((x enumeration)) nil) + (:documentation + "Checks whether the enumeration has more elements. Obsolete.")) (defgeneric next (x &optional default)) @@ -60,7 +63,18 @@ (declare (ignore errorp)) (cerror "Do you want to return the default value specified ~S?" "No specific cursor defined for enumeration ~*~S." default x) - default)) + default) + (:documentation + "Returns the \"current\" element in the enumeration ENUM. +If ERRORP is non-NIL and no \"current\" element is available, then +CURRENT signals an error: either NO-SUCH-ELEMENT or a continuable +error. If ERRORP is NIL and no \"current\" element is available then +DEFAULT is returned.")) + + +(defgeneric reset (enum) + (:documentation + "Resets the enumeration ENUM to the \"initial\" element.")) (defgeneric element-type (x)

1 0

[cl-enumeration-cvs] CVS update: enumerations/docs/html/current-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-serv25720 Added Files: current-function.html Log Message: Added file. Date: Thu Mar 10 18:57:32 2005 Author: mantoniotti

1 0

[cl-enumeration-cvs] CVS update: enumerations/enumerations-pkg.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-serv24809 Modified Files: enumerations-pkg.lisp Log Message: Fixed spelling in package name and nicknames. Date: Thu Mar 10 18:40:59 2005 Author: mantoniotti Index: enumerations/enumerations-pkg.lisp diff -u enumerations/enumerations-pkg.lisp:1.1.1.1 enumerations/enumerations-pkg.lisp:1.2 --- enumerations/enumerations-pkg.lisp:1.1.1.1 Wed Mar 9 19:18:02 2005 +++ enumerations/enumerations-pkg.lisp Thu Mar 10 18:40:58 2005 @@ -1,12 +1,12 @@ ;;; -*- Mode: Lisp -*- -(defpackage "ORG.NTUNIOTT.COMMON-LISP.EXTESIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS" (:use "COMMON-LISP") +(defpackage "ORG.NTUNIOTT.COMMON-LISP.EXTENSIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS" (:use "COMMON-LISP") (:nicknames "ENUM" "enum" "CL.EXTENSIONS.ENUMERATIONS" "CL.EXT.ENUMERATIONS" - "COMMON-LISP.EXTESIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS") + "COMMON-LISP.EXTENSIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS") (:export #:enumeration #:enumerationp

1 0

[cl-enumeration-cvs] CVS update: enumerations/docs/html/downloads.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-serv21914 Modified Files: downloads.html Log Message: Now it should be finally finally fixed. Date: Thu Mar 10 17:50:58 2005 Author: mantoniotti Index: enumerations/docs/html/downloads.html diff -u enumerations/docs/html/downloads.html:1.4 enumerations/docs/html/downloads.html:1.5 --- enumerations/docs/html/downloads.html:1.4 Thu Mar 10 17:48:50 2005 +++ enumerations/docs/html/downloads.html Thu Mar 10 17:50:58 2005 @@ -55,7 +55,7 @@ <h2>Download and CVS Repository</h2> - <p>The CVS repository is <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=enumeration">here</a>. You can download a tarball directly from there.</p> + <p>The CVS repository is <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=cl-enumeration">here</a>. You can download a tarball directly from there.</p>

1 0

[cl-enumeration-cvs] CVS update: enumerations/docs/html/downloads.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-serv21845 Modified Files: downloads.html Log Message: Hopefully fixed the link to CVS download. Date: Thu Mar 10 17:48:50 2005 Author: mantoniotti Index: enumerations/docs/html/downloads.html diff -u enumerations/docs/html/downloads.html:1.3 enumerations/docs/html/downloads.html:1.4 --- enumerations/docs/html/downloads.html:1.3 Wed Mar 9 19:33:05 2005 +++ enumerations/docs/html/downloads.html Thu Mar 10 17:48:50 2005 @@ -55,7 +55,7 @@ <h2>Download and CVS Repository</h2> - <p>The CVS repository is <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/cl-enumeration/?cvsroot=enumerat…">here</a>. You can download a tarball directly from there.</p> + <p>The CVS repository is <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=enumeration">here</a>. You can download a tarball directly from there.</p>

1 0