[cl-enumeration-cvs] CVS enumerations
Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv9370 Modified Files: enumerations.lisp Log Message: Fixed stupid error in base methods for PREVIOUS and HAS-PREVIOUS-P. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.lisp 2005/03/10 18:08:50 1.3 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.lisp 2010/12/17 15:34:41 1.4 @@ -132,12 +132,12 @@ (defgeneric previous (x &optional default) (:method ((x enumeration) &optional default) (declare (ignore default)) - (error "~S is not a bi-directional enumeration.") x)) + (error "~S is not a bi-directional enumeration." x))) (defgeneric has-previous-p (x) (:method ((x enumeration)) - (error "~S is not a bi-directional enumeration.") x)) + (error "~S is not a bi-directional enumeration." x))) (defmethod previous :around ((x enumeration)
participants (1)
-
mantoniotti