[cl-enumeration-cvs] CVS enumerations

[CVS User mantoniotti]

Update of /project/cl-enumeration/cvsroot/enumerations
In directory tiger.common-lisp.net:/tmp/cvs-serv7621

Modified Files:
	iterate-enumeration.lisp 
Log Message:
Added patch by Mason Smith to avoid calling ENUM:ENUMERATE in the
ITERATE OVER drive.


--- /project/cl-enumeration/cvsroot/enumerations/iterate-enumeration.lisp	2010/12/30 13:25:38	1.2
+++ /project/cl-enumeration/cvsroot/enumerations/iterate-enumeration.lisp	2011/09/30 14:18:01	1.3
@@ -11,10 +11,15 @@
 
 (defmacro-driver (FOR var OVER enum)
   (let ((e (gensym "ENUM-"))
+	(et (gensym "ENUM-"))
         (kwd (if generate 'generate 'for))
         )
     `(progn
        (with ,e = ,enum)
+       (with ,e = (let ((,et ,enum))
+		    (if (enum:enumerationp ,et)
+			,et
+			(enum:enumerate ,et))))
        (,kwd ,var next (if (enum:has-more-elements-p ,e)
                            (enum:next ,e)
                            (terminate))))))