Mercurial > hg > amuse

changeset 263:df5d60cda9a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add linked-event superclass to mtp-event
author Jamie Forth <j.forth@gold.ac.uk>
date Sun, 10 Apr 2011 10:24:37 +0100
parents 2284dbc7d51a
children 5090d02f7a83
files implementations/mtp/classes.lisp implementations/mtp/methods.lisp
diffstat 2 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/implementations/mtp/classes.lisp	Sun Apr 10 10:23:04 2011 +0100
+++ b/implementations/mtp/classes.lisp	Sun Apr 10 10:24:37 2011 +0100
@@ -40,7 +40,8 @@
 (defclass mtp-monody (amuse:standard-monody mtp-composition) 
   ())
 
-(defclass mtp-event (amuse:standard-pitched-event mtp-music-object)
+(defclass mtp-event (amuse:standard-pitched-event mtp-music-object
+						  linked-event)
   ((dataset-id :initarg :dataset-id :accessor dataset-id)
    (composition-id :initarg :composition-id :accessor composition-id)
    (event-id :initarg :event-id :accessor event-id)
--- a/implementations/mtp/methods.lisp	Sun Apr 10 10:23:04 2011 +0100
+++ b/implementations/mtp/methods.lisp	Sun Apr 10 10:24:37 2011 +0100
@@ -51,6 +51,8 @@
                                         :description description
                                         :time 0
                                         :interval interval)))
+	    (dolist (e events)
+	      (%set-composition composition e))
             (sequence:adjust-sequence composition (length events)
                                       :initial-contents (nreverse events))
             (setf events nil)