Mercurial > hg > amuse
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))