j@251: (cl:in-package #:amuse-datasets)
j@251: 
j@251: (defun make-midifile-dataset-identifier (dataset-path
j@251: 					 &optional (implementation-package
j@251: 						    *package*))
j@251:   "*package* is bound to the package in which the function is called,
j@251: e.g. if you are in-package amuse-midi, the implementation-package will
j@251: be amuse-midi. If you are calling this from within a different
j@251: package, use find-package."
j@251:   (make-instance 'midifile-dataset-identifier
j@251: 		 :dataset-path dataset-path
j@251: 		 :implementation-package implementation-package))