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

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

14 Nov '05

Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv1122 Modified Files: ChangeLog Log Message: ChangeLog updated. Date: Mon Nov 14 17:49:16 2005 Author: mantoniotti Index: enumerations/ChangeLog diff -u enumerations/ChangeLog:1.1 enumerations/ChangeLog:1.2 --- enumerations/ChangeLog:1.1 Thu Jun 30 19:49:54 2005 +++ enumerations/ChangeLog Mon Nov 14 17:49:16 2005 @@ -1,3 +1,24 @@ +2005-11-14 mantoniotti <mantoniotti@vault> + + * string-enumerations.lisp: + Commented out the protocol implementation for SIMPLE-STRING. The + methods may be a good idea, but CL does not support DEFMETHODs with a + "type" discriminant, and SIMPLE-STRING is a type and not a class. + This does not seem to cause problems in LW and CMUCL, but, for + example, it breaks ECL. + +2005-06-30 mantoniotti <mantoniotti@vault> + + * ChangeLog: ChangeLog created and updated. + + * enumerations.system: + Added preliminary code to handle the ITERATE library. + + * hash-table-enumerations.lisp: + Fixed stupid mistake in the ENUMERATE method. The hash table was not + passed to MAKE-INSTANCE of the HASH-TABLE-ENUMERATION object. + Thanks to Martin Elster for finding this one out. + 2005-06-30 mantoniotti <mantoniotti@vault> * enumerations.system:

1 0

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

14 Nov '05

Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv32473 Modified Files: string-enumerations.lisp Log Message: Commented out the protocol implementation for SIMPLE-STRING. The methods may be a good idea, but CL does not support DEFMETHODs with a "type" discriminant, and SIMPLE-STRING is a type and not a class. This does not seem to cause problems in LW and CMUCL, but, for example, it breaks ECL. Date: Mon Nov 14 17:38:54 2005 Author: mantoniotti Index: enumerations/string-enumerations.lisp diff -u enumerations/string-enumerations.lisp:1.1.1.1 enumerations/string-enumerations.lisp:1.2 --- enumerations/string-enumerations.lisp:1.1.1.1 Wed Mar 9 19:18:02 2005 +++ enumerations/string-enumerations.lisp Mon Nov 14 17:38:54 2005 @@ -38,6 +38,13 @@ (:method ((x t)) nil) (:method ((x simple-string-enumeration)) t)) + +;;; The next methods may be a good idea, but CL does not support +;;; DEFMETHODs with a "type" discriminant, and SIMPLE-STRING is a type +;;; and not a class. This does not seem to cause problems in LW and +;;; CMUCL, but it breaks ECL. + +#| (defmethod enumerate ((x simple-string) &key (start 0) end &allow-other-keys) (make-instance 'simple-string-enumeration :object x :start start :end end)) @@ -52,6 +59,6 @@ (declare (ignore default)) (decf (enumeration-cursor x)) (schar (enumeration-object x) (enumeration-cursor x))) - +|# ;;; end of file -- string-enumerations.lisp --

1 0

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

30 Jun '05

Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv19565 Added Files: ChangeLog Log Message: ChangeLog created and updated. Date: Thu Jun 30 19:49:54 2005 Author: mantoniotti

1 0

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

30 Jun '05

Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv19540 Modified Files: enumerations.system Log Message: Added preliminary code to handle the ITERATE library. Date: Thu Jun 30 19:48:48 2005 Author: mantoniotti Index: enumerations/enumerations.system diff -u enumerations/enumerations.system:1.1.1.1 enumerations/enumerations.system:1.2 --- enumerations/enumerations.system:1.1.1.1 Wed Mar 9 19:18:02 2005 +++ enumerations/enumerations.system Thu Jun 30 19:48:48 2005 @@ -1,7 +1,6 @@ ;;; -*- Mode: Lisp -*- (mk:defsystem "ENUMERATIONS" - ;; :source-pathname "" :components ("enumerations-pkg" (:file "enumerations" :depends-on ("enumerations-pkg")) (:file "sequence-enumeration" :depends-on ("enumerations-pkg")) @@ -12,6 +11,8 @@ (:file "array-enumerations" :depends-on ("enumerations")) (:file "number-enumerations" :depends-on ("enumerations")) (:file "foreach" :depends-on ("enumerations")) + #+:iterate (:file "iterate-extension" + :depends-on ("enumerations")) )) ;;; end of file -- enumerations.system --

1 0

[cl-enumeration-cvs] CVS update: enumerations/hash-table-enumerations.lisp
by mantoniotti＠common-lisp.net 30 Jun '05

30 Jun '05

Update of /project/cl-enumeration/cvsroot/enumerations In directory common-lisp.net:/tmp/cvs-serv19520 Modified Files: hash-table-enumerations.lisp Log Message: Fixed stupid mistake in the ENUMERATE method. The hash table was not passed to MAKE-INSTANCE of the HASH-TABLE-ENUMERATION object. Thanks to Martin Elster for finding this one out. Date: Thu Jun 30 19:48:06 2005 Author: mantoniotti Index: enumerations/hash-table-enumerations.lisp diff -u enumerations/hash-table-enumerations.lisp:1.1.1.1 enumerations/hash-table-enumerations.lisp:1.2 --- enumerations/hash-table-enumerations.lisp:1.1.1.1 Wed Mar 9 19:18:02 2005 +++ enumerations/hash-table-enumerations.lisp Thu Jun 30 19:48:05 2005 @@ -57,6 +57,7 @@ &allow-other-keys) (declare (ignore start end)) (make-instance 'hash-table-enumeration + :object x :keys keys :values values :key-value-pairs key-value-pairs))

1 0

[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