Mercurial > hg > amuse

diff implementations/geerdes/classes.lisp @ 224:7afb8cfdcdcf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add composition slot to event (geerdes) Ignore-this: 7ece48560d6cc689711c5864e49a0360 darcs-hash:20090828164054-16a00-57b981532296c149640ab1e48439cdb88c41f2cf.gz committer: Jamie Forth <j.forth@gold.ac.uk>
author j.forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents d8f650e3796e
children
line wrap: on
line diff
--- a/implementations/geerdes/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/implementations/geerdes/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -64,14 +64,15 @@
 (defclass geerdes-event (geerdes-object) ()
   (:documentation "Base class for geerdes events."))
 
-(defclass geerdes-pitched-event (midi-pitched-event geerdes-event)
+(defclass geerdes-pitched-event (midi-pitched-event geerdes-event
+						    linked-event)
   ((identifier :initarg :identifier
 	       :reader identifier))
   (:documentation "Only adds a database identifier to
   midi-pitched-event"))
 
 (defclass geerdes-percussive-event (midi-percussive-event
-				    geerdes-event)
+				    geerdes-event linked-event)
   ((identifier :initarg :identifier
 	       :reader identifier))
   (:documentation "Only adds a database identifier to