[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