# HG changeset patch
# User David Lewis <d.lewis@gold.ac.uk>
# Date 1185441350 -3600
# Node ID 59e69a32b8d927199f53ad2323af1390f7d14ba1
# Parent  c5f04eb31071934f1bfaf6af99966a30f5857f73
More docstrings

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

diff -r c5f04eb31071 -r 59e69a32b8d9 base/generics.lisp
--- 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 
diff -r c5f04eb31071 -r 59e69a32b8d9 implementations/geerdes/methods.lisp
--- a/implementations/geerdes/methods.lisp	Thu Jul 26 09:54:25 2007 +0100
+++ b/implementations/geerdes/methods.lisp	Thu Jul 26 10:15:50 2007 +0100
@@ -142,5 +142,5 @@
 
 (defgeneric lead-vocalp (event)
   (:method (e) (declare (ignore e)) nil))
-(defmethod lead-vocalp ((event geerdes-pitched-event))
+(defmethod lead-vocalp ((event geerdesl-pitched-event))
   (= (midi-channel event) 4))