annotate default-methods.lisp @ 1:cbb5b478307e

Initial import of classes.lisp and default-methods.lisp from David.

darcs-hash:20061016144427-aa3d6-93919f5153445ade41eb753434da6f3c838c155a.gz

;; Some methods that can be defined in terms of others:

;; Time

(defmethod time>= ((object1 moment) (object2 moment))
  (or (time> object1 object2)
      (time= object1 object2)))

(defmethod time<= ((object1 moment) (object2 moment))
  (or (time< object1 object2)
      (time= object1 object2)))

(defmethod time/= ((object1 moment) (object2 moment))
  (not (time= object1 object2)))

;; Duration

(defmethod duration>= ((object1 duration) (object2 duration))
  (or (duration> object1 object2)
      (duration= object1 object2)))

(defmethod duration<= ((object1 duration) (object2 duration))
  (or (duration< object1 object2)
      (duration= object1 object2)))

(defmethod duration/= ((object1 duration) (object2 duration))
  (not (duration= object1 object2)))

;; Pitch

(defmethod pitch>= ((object1 pitch) (object2 pitch))
  (or (pitch> object1 object2)
      (pitch= object1 object2)))

(defmethod pitch<= ((object1 pitch) (object2 pitch))
  (or (pitch< object1 object2)
      (pitch= object1 object2)))

(defmethod pitch/= ((object1 pitch) (object2 pitch))
  (not (pitch= object1 object2)))

;; Interval

(defmethod interval>= ((object1 interval) (object2 interval))
  (or (interval> object1 object2)
      (interval= object1 object2)))

(defmethod interval<= ((object1 interval) (object2 interval))
  (or (interval< object1 object2)
      (interval= object1 object2)))

(defmethod interval/= ((object1 interval) (object2 interval))
  (not (interval= object1 object2)))