Mercurial > hg > amuse

changeset 266:d605fd37b0ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix mtp description again - return the string not '(string)
author Jamie Forth <j.forth@gold.ac.uk>
date Sun, 10 Apr 2011 18:28:27 +0100
parents b75b45d76e45
children 89c20fd8abc0
files implementations/mtp/methods.lisp
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/implementations/mtp/methods.lisp	Sun Apr 10 16:59:24 2011 +0100
+++ b/implementations/mtp/methods.lisp	Sun Apr 10 18:28:27 2011 +0100
@@ -34,7 +34,7 @@
     ;; for each db-composition 
     (dolist (dbc db-compositions)
       (let ((composition-id (car dbc))
-            (description (cdr dbc)))
+            (description (cadr dbc)))
         ;; for each db-event 
         (do* ((dbes db-events (cdr dbes))
               (dbe (car dbes) (car dbes))