[cl-enumeration-cvs] CVS update: enumerations/string-enumerations.lisp

[Marco Antoniotti]

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