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

[Marco Antoniotti]

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

Modified Files:
	enumerations.lisp 
Log Message:
Removed dead code.

Date: Thu Mar 10 19:08:50 2005
Author: mantoniotti

Index: enumerations/enumerations.lisp
diff -u enumerations/enumerations.lisp:1.2 enumerations/enumerations.lisp:1.3
--- enumerations/enumerations.lisp:1.2	Thu Mar 10 19:07:05 2005
+++ enumerations/enumerations.lisp	Thu Mar 10 19:08:50 2005
@@ -85,17 +85,7 @@
 
 ;;;---------------------------------------------------------------------------
 ;;; Implementation.
-
-#| Wrong and useless
-(defmacro next-element (enum
-			&key (of-type t type-supplied-p)
-			(default nil default-supplied-p))
-  (if default-supplied-p
-      `(the ,(if type-supplied-p of-type (element-type enum))
-	 (next ,enum ,default))
-      `(the ,(if type-supplied-p of-type (element-type enum))
-	 (next ,enum))))
-|#
+;;; Bare bone general implementation of some methods.
 
 
 (defmethod next ((x enumeration) &optional default)