comparison base/methods.lisp @ 100:ad9cca28fecf

Added doc-strings

darcs-hash:20070725171218-f76cc-c62173b38861d7c368d5219cc743d85a4f67fda8.gz

        
 
 ;; Time protocol
 
 (defmethod time+ ((object1 moment) (object2 period))
+  "(time+ <moment> <period>) -> <moment> Implemented as a
+straightforward summation."
   (make-moment (+ (timepoint object1) (duration object2))))
 
 (defmethod time+ ((object1 period) (object2 moment)) ;?
+  "(time+ <period> <moment>) -> <moment> Implemented as a
+straightforward summation."
   (time+ object2 object1))
 
 (defmethod time+ ((object1 period) (object2 period))
+  "(time+ <period> <period>) -> <period> Implemented as a
+straightforward summation."
   (make-floating-period (+ (duration object1)
 			   (duration object2))))
 
 (defmethod time+ ((object1 moment) (object2 moment))
+  "(time+ <moment> <moment>) -> <condition:undefined-action> The
+question makes no sense."
   (error 'undefined-action :operation 'time+ :datatype (list (class-of object1) (class-of object2))))
 
 (defmethod time- ((object1 moment) (object2 moment))
   (make-anchored-period (timepoint object2)
 			(- (timepoint object1)