Mercurial > hg > amuse
comparison implementations/mtp/methods.lisp @ 71:6884aed85d61
implementations/mtp/methods.lisp: oops
darcs-hash:20070706114225-c0ce4-01f94676b16788622aca6fbfe624608211b54b31.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Fri, 06 Jul 2007 12:42:25 +0100 |
| parents | 19a4ad162cf9 |
| children | dc01096751af |
comparison
equal
deleted
inserted
replaced
| 70:19a4ad162cf9 | 71:6884aed85d61 |
|---|---|
| 167 | 167 |
| 168 ;;; Constituents from compositions: tempi | 168 ;;; Constituents from compositions: tempi |
| 169 | 169 |
| 170 (defmethod get-applicable-tempi ((e mtp-event) c) | 170 (defmethod get-applicable-tempi ((e mtp-event) c) |
| 171 (declare (ignore c)) | 171 (declare (ignore c)) |
| 172 (list (amuse:make-tempo (%mtp-tempo event) | 172 (list (amuse:make-tempo (%mtp-tempo e) |
| 173 (timepoint event) | 173 (timepoint e) |
| 174 (duration event)))) | 174 (duration e)))) |
| 175 | 175 |
| 176 (defmethod tempi ((c mtp-composition)) | 176 (defmethod tempi ((c mtp-composition)) |
| 177 (let ((results nil) | 177 (let ((results nil) |
| 178 (interval 0) | 178 (interval 0) |
| 179 (current nil)) | 179 (current nil)) |