comparison base/methods.lisp @ 73:c9b0739d8dd6

A few small changes, mostly for speed

darcs-hash:20070710100856-f76cc-7977785c9dbc9e1edf86ebdbfe6e82b9176d7372.gz

 (defmethod timepoint ((moment-designator moment))
   (%moment-time moment-designator))
 
 (defmethod (setf timepoint) ((value real) (moment-designator moment))
   (setf (%moment-time moment-designator) value))
+
+(defmethod cut-off ((anchored-period-designator anchored-period))
+  (make-instance 'moment
+		 :time (+ (%moment-time anchored-period-designator)
+			  (%period-interval anchored-period-designator))))
 
 (defmethod beat-units-per-bar ((time-signature basic-time-signature))
   (%basic-time-signature-numerator time-signature))
 
 (defmethod beat-units ((time-signature basic-time-signature))

 (defmethod time- ((object1 anchored-period) object2) ;?
   (time- (moment object1) object2))
 
 (defmethod time> ((object1 moment) (object2 moment))
   (> (timepoint object1) (timepoint object2)))
+
+(defmethod time< ((object1 moment) (object2 moment))
+  (< (timepoint object1) (timepoint object2)))
 
 (defmethod time= ((object1 moment) (object2 moment))
   (= (timepoint object1) (timepoint object2)))
 
 (defmethod duration> ((object1 period) (object2 period))