# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1248808024 -3600
# Node ID 61dfbaea3c0b591e85076ec3d99392a209eaabe0
# Parent  908a98b6336ef49acd3119e23969eb0535fff332
Move midifile-identifier class definition into classes.lisp

Ignore-this: 735724c00ddb97fc6b2d90398fae5b6d

darcs-hash:20090728190704-16a00-9787f577e9444e9a15e48a0f80098f28607c3c67.gz

diff -r 908a98b6336e -r 61dfbaea3c0b implementations/midi/classes.lisp
--- a/implementations/midi/classes.lisp	Thu Jul 23 11:31:19 2009 +0100
+++ b/implementations/midi/classes.lisp	Tue Jul 28 20:07:04 2009 +0100
@@ -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 908a98b6336e -r 61dfbaea3c0b implementations/midi/midifile-import.lisp
--- a/implementations/midi/midifile-import.lisp	Thu Jul 23 11:31:19 2009 +0100
+++ b/implementations/midi/midifile-import.lisp	Tue Jul 28 20:07:04 2009 +0100
@@ -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))