# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546598 0
# Node ID de60993404c1cfed65c54fd9c9556f74139c71e0
# Parent  87320b5ba2e59f17b2a21e9ea4b4c666624561ab
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>

diff -r 87320b5ba2e5 -r de60993404c1 implementations/midi/classes.lisp
--- 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
diff -r 87320b5ba2e5 -r de60993404c1 implementations/midi/midifile-import.lisp
--- 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))