Mercurial > hg > amuse

diff base/generics.lisp @ 102:59e69a32b8d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More docstrings darcs-hash:20070726091550-f76cc-32dfc4cc3e4922d6801b3b2717e5c19f15a1ef92.gz
author David Lewis <d.lewis@gold.ac.uk>
date Thu, 26 Jul 2007 10:15:50 +0100
parents ad9cca28fecf
children 8528c316fbcc
line wrap: on
line diff
--- a/base/generics.lisp	Thu Jul 26 09:54:25 2007 +0100
+++ b/base/generics.lisp	Thu Jul 26 10:15:50 2007 +0100
@@ -169,18 +169,26 @@
 ;;        <duration>  <time>     -> ERROR? 
 ;;        <anchored>  <anchored> -> (time- (moment o1) (moment o2)) ? or error?
 
-(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))
+(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