comparison base/generics.lisp @ 102:59e69a32b8d9

More docstrings

darcs-hash:20070726091550-f76cc-32dfc4cc3e4922d6801b3b2717e5c19f15a1ef92.gz

 ;;        <time>      <duration> -> <time> 
 ;;        <duration>  <duration> -> <duration> (or a distinct duration-?) 
 ;;        <duration>  <time>     -> ERROR? 
 ;;        <anchored>  <anchored> -> (time- (moment o1) (moment o2)) ? or error?
 
-(defgeneric time+ (object1 object2))
-(defgeneric time- (object1 object2))
-
-(defgeneric time> (object1 object2))
+(defgeneric time+ (object1 object2)
+  (:documentation "Addition for time designators"))
+(defgeneric time- (object1 object2)
+  (:documentation "Subtraction for time designators"))
+
+(defgeneric time> (object1 object2)
+  (:documentation "> operator for time designators"))
 (defgeneric time< (object1 object2)
+  (:documentation "< operator for time designators")
   (:method (o1 o2) (time> o2 o1)))
-(defgeneric time= (object1 object2)) 
+(defgeneric time= (object1 object2)
+  (:documentation "= operator for time designators")) 
 (defgeneric time>= (object1 object2)
+  (:documentation ">= operator for time designators")
   (:method (o1 o2) (or (time> o1 o2) (time= o1 o2))))
 (defgeneric time<= (object1 object2)
+  (:documentation "<= operator for time designators")
   (:method (o1 o2) (or (time< o1 o2) (time= o1 o2))))
 (defgeneric time/= (object1 object2)
+  (:documentation "not = operator for time designators")
   (:method (o1 o2) (not (time= o1 o2))))
 
 ;;; Duration protocol 
 
 (defgeneric duration> (object1 object2))