# HG changeset patch
# User Marcus Pearce <m.pearce@gold.ac.uk>
# Date 1183721972 -3600
# Node ID 19a4ad162cf931f93090e79cc4669d232afbd266
# Parent  873d7546d2fe1ba8c8230a8eb367662bfa695941
implementations/mtp/methods.lisp: fix parens

darcs-hash:20070706113932-c0ce4-4e026666faad81e352bcc3ad9d10be7606c87035.gz

diff -r 873d7546d2fe -r 19a4ad162cf9 implementations/mtp/methods.lisp
--- 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)