Mercurial > hg > amuse
comparison implementations/mtp/methods.lisp @ 70:19a4ad162cf9
implementations/mtp/methods.lisp: fix parens
darcs-hash:20070706113932-c0ce4-4e026666faad81e352bcc3ad9d10be7606c87035.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Fri, 06 Jul 2007 12:39:32 +0100 |
| parents | 873d7546d2fe |
| children | 6884aed85d61 |
comparison
equal
deleted
inserted
replaced
| 69:873d7546d2fe | 70:19a4ad162cf9 |
|---|---|
| 113 (defmethod time-signatures ((c mtp-composition)) | 113 (defmethod time-signatures ((c mtp-composition)) |
| 114 (let ((results nil) | 114 (let ((results nil) |
| 115 (interval 0) | 115 (interval 0) |
| 116 (current nil)) | 116 (current nil)) |
| 117 (sequence:dosequence (event c) | 117 (sequence:dosequence (event c) |
| 118 (let ((ts (car (get-applicable-time-signatures event c))) | 118 (let ((ts (car (get-applicable-time-signatures event c)))) |
| 119 (when (and (%mtp-barlength event) | 119 (when (and (%mtp-barlength event) |
| 120 (%mtp-pulses event) | 120 (%mtp-pulses event) |
| 121 (or (null current) | 121 (or (null current) |
| 122 (not (time-signature-equal ts current)))) | 122 (not (time-signature-equal ts current)))) |
| 123 (unless (null current) | 123 (unless (null current) |