From mantoniotti at common-lisp.net Mon Nov 14 16:38:54 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Mon, 14 Nov 2005 17:38:54 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/string-enumerations.lisp Message-ID: <20051114163854.DABB6880D6@common-lisp.net> 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 -- From mantoniotti at common-lisp.net Mon Nov 14 16:49:17 2005 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Mon, 14 Nov 2005 17:49:17 +0100 (CET) Subject: [cl-enumeration-cvs] CVS update: enumerations/ChangeLog Message-ID: <20051114164917.15DAB880D6@common-lisp.net> 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 + + * 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 + + * 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 * enumerations.system: