# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546597 0
# Node ID be3d63b78054af3d16091448754c5ec3a489e1f9
# Parent  1c58a18161b685f26de50f4ed01d295bb8ee93d3
move copy-event generic into base

Ignore-this: d13c0b045f708efe242dd55e8ecdb4c4

darcs-hash:20090509113140-16a00-ad2445973b934beecc568ac9b975959aac94c549.gz

committer: Jamie Forth <j.forth@gold.ac.uk>

diff -r 1c58a18161b6 -r be3d63b78054 base/generics.lisp
--- a/base/generics.lisp	Thu Feb 24 11:23:17 2011 +0000
+++ b/base/generics.lisp	Thu Feb 24 11:23:17 2011 +0000
@@ -460,3 +460,6 @@
 
 (defgeneric move-to-first-bar (composition)) ;;this shouldn't be here
 
+(defgeneric copy-event (event))
+
+(defgeneric voice (event))
diff -r 1c58a18161b6 -r be3d63b78054 implementations/geerdes/constructors.lisp
--- a/implementations/geerdes/constructors.lisp	Thu Feb 24 11:23:17 2011 +0000
+++ b/implementations/geerdes/constructors.lisp	Thu Feb 24 11:23:17 2011 +0000
@@ -132,7 +132,6 @@
 		 :interval duration
 		 :id id))
 
-(defgeneric copy-event (event))
 (defmethod copy-event ((event geerdes-pitched-event))
   (with-slots ((channel amuse-midi::channel)
 	       (track amuse-midi::track)
diff -r 1c58a18161b6 -r be3d63b78054 implementations/midi/methods.lisp
--- a/implementations/midi/methods.lisp	Thu Feb 24 11:23:17 2011 +0000
+++ b/implementations/midi/methods.lisp	Thu Feb 24 11:23:17 2011 +0000
@@ -55,7 +55,6 @@
 (defmethod (setf key-signatures) (sequence (composition midi-composition))
   (setf (%midi-key-signatures composition) sequence))
 
-(defgeneric copy-event (event))
 ;; FIXME: This ought to call-next-method and operate on the result,
 ;; rather than calling internals from the other package
 (defmethod copy-event ((event midi-pitched-event))