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)