Mercurial > hg > amuse
changeset 210:be3d63b78054
move copy-event generic into base
Ignore-this: d13c0b045f708efe242dd55e8ecdb4c4
darcs-hash:20090509113140-16a00-ad2445973b934beecc568ac9b975959aac94c549.gz
committer: Jamie Forth <j.forth@gold.ac.uk>
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:17 +0000 |
| parents | 1c58a18161b6 |
| children | e2839225f6fb |
| files | base/generics.lisp implementations/geerdes/constructors.lisp implementations/midi/methods.lisp |
| diffstat | 3 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))
--- 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)
--- 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))