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