Mercurial > hg > amuse
comparison base/methods.lisp @ 143:b753a56c373b
base/: add standard-monody
darcs-hash:20070911103904-c0ce4-972b12d9521d0c75143ef9d81fdb7f33dbc3e8e4.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Tue, 11 Sep 2007 11:39:04 +0100 |
| parents | ee9dd7148eab |
| children | 30341910a67e |
comparison
equal
deleted
inserted
replaced
| 142:7ed6a263f844 | 143:b753a56c373b |
|---|---|
| 1 (cl:in-package #:amuse) | 1 (cl:in-package #:amuse) |
| 2 | 2 |
| 3 ;;; monody | 3 ;;; monody |
| 4 | 4 |
| 5 (defmethod ensure-monody ((m monody)) | 5 (defmethod ensure-monody ((m standard-monody)) |
| 6 (let ((result t)) | 6 (let ((result t)) |
| 7 (dotimes (i (1- (length m)) result) | 7 (dotimes (i (1- (length m)) result) |
| 8 ;; assumes the events are time ordered which (since monody is a | 8 ;; assumes the events are time ordered which (since monody is a |
| 9 ;; subclass of time-ordered-constituent) they ought to be. | 9 ;; subclass of time-ordered-constituent) they ought to be. |
| 10 (let ((e1 (elt m i)) | 10 (let ((e1 (elt m i)) |