changeset 262:2284dbc7d51a

fix missing description value in mtp-compositions
author Jamie Forth <j.forth@gold.ac.uk>
date Sun, 10 Apr 2011 10:23:04 +0100
parents 8e5f306b7e47
children df5d60cda9a2
files implementations/mtp/methods.lisp
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/implementations/mtp/methods.lisp	Mon Mar 28 21:40:37 2011 +0100
+++ b/implementations/mtp/methods.lisp	Sun Apr 10 10:23:04 2011 +0100
@@ -34,7 +34,7 @@
     ;; for each db-composition 
     (dolist (dbc db-compositions)
       (let ((composition-id (car dbc))
-            (description (car dbc)))
+            (description (cdr dbc)))
         ;; for each db-event 
         (do* ((dbes db-events (cdr dbes))
               (dbe (car dbes) (car dbes))