m@46: (cl:in-package #:amuse-mtp) 
m@46: 
m@53: (defun make-mtp-dataset-identifier (dataset-id)
m@53:   (make-instance 'mtp-dataset-identifier :dataset-id dataset-id))
m@53: 
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@53: (defun make-mtp-dataset (&rest args)
m@53:   (apply #'make-instance 'mtp-dataset args))
m@53: 
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: