m@46: (cl:in-package #:amuse-mtp) 
m@46: 
m@46: (defun make-mtp-composition-identifier (dataset-id composition-id)
m@46:   (make-instance 'mtp-composition-identifier 
m@46:                  :dataset-id dataset-id :composition-id composition-id))
m@46: 
m@46: (defun make-mtp-composition (&rest args) 
m@46:   (apply #'make-instance 'mtp-composition args))
m@46: 
m@46: (defun make-mtp-event (&rest args) 
m@46:   (apply #'make-instance 'mtp-event args))
m@46: