Mercurial > hg > amuse
changeset 220:de60993404c1
Move midifile-identifier class definition into classes.lisp
Ignore-this: 735724c00ddb97fc6b2d90398fae5b6d
darcs-hash:20090728190704-16a00-9787f577e9444e9a15e48a0f80098f28607c3c67.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 | 87320b5ba2e5 |
| children | 317fe3126c6c |
| files | implementations/midi/classes.lisp implementations/midi/midifile-import.lisp |
| diffstat | 2 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/midi/classes.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/implementations/midi/classes.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -3,6 +3,13 @@ (defclass midi-object (amuse-object) () (:documentation "MIDI base class")) +(defclass midifile-identifier (composition-identifier midi-object) + ((pathname :initarg :path + :reader midifile-identifier-pathname + :initform 'nil)) + (:documentation "Identifier for MIDI files, containing pathname + information")) + (defclass midi-composition (standard-composition midi-object) ((time-signatures :initarg :time-signatures :initform 'nil
--- a/implementations/midi/midifile-import.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/implementations/midi/midifile-import.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -1,12 +1,5 @@ (cl:in-package #:amuse-midi) -(defclass midifile-identifier (composition-identifier midi-object) - ((pathname :initarg :path - :reader midifile-identifier-pathname - :initform 'nil)) - (:documentation "Identifier for MIDI files, containing pathname - information")) - (defun midifile-id (pathname) "Creates an identifier for MIDI files, based on a pathname" (make-instance 'midifile-identifier :path pathname))