Mercurial > hg > amuse

diff implementations/mtp/methods.lisp @ 70:19a4ad162cf9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line diff
--- a/implementations/mtp/methods.lisp	Fri Jul 06 12:10:27 2007 +0100
+++ b/implementations/mtp/methods.lisp	Fri Jul 06 12:39:32 2007 +0100
@@ -115,7 +115,7 @@
         (interval 0) 
         (current nil))
     (sequence:dosequence (event c)
-      (let ((ts (car (get-applicable-time-signatures event c)))
+      (let ((ts (car (get-applicable-time-signatures event c))))
         (when (and (%mtp-barlength event)
                    (%mtp-pulses event)
                    (or (null current)