[cl-enumeration-cvs] CVS enumerations
mantoniotti
mantoniotti at common-lisp.net
Fri Dec 17 15:34:42 UTC 2010
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)
More information about the Cl-enumeration-cvs
mailing list