m@25: (cl:in-package #:amuse-midi)
m@25: 
m@144: (defun make-midifile-identifier (pathname)
m@144:   (make-instance 'midifile-identifier :path pathname))
m@144: 
m@25: (defun make-midi-pitched-event (pitch-number velocity patch
m@25: 				channel track onset duration)
j@308:   "FIXME: This is never called."
m@25:   (make-instance 'midi-pitched-event
m@25: 		 :number pitch-number
m@25: 		 :velocity velocity
m@25: 		 :patch patch
m@25: 		 :channel channel
m@25: 		 :track track
m@25: 		 :time onset
m@25: 		 :interval duration))
m@25: 
m@25: (defun make-midi-percussive-event (pitch-number velocity patch
m@25: 				   channel track onset duration)
j@308:   "FIXME: This is never called."
m@25:   (make-instance 'midi-percussive-event
m@25: 		 :sound pitch-number
m@25: 		 :velocity velocity
m@25: 		 :patch patch
m@25: 		 :channel channel
m@25: 		 :track track
m@25: 		 :time onset
m@25: 		 :interval duration))
m@25: 
m@25: