annotate implementations/mtp/constructors.lisp @ 46:34fb42cba5b9
basic mtp amuse implementation
darcs-hash:20070615111202-aa3d6-498f4d035964f6f8e8803de9cbf6f50974affe88.gz
| author |
m.pearce <m.pearce@gold.ac.uk> |
| date |
Fri, 15 Jun 2007 12:12:02 +0100 |
| parents |
|
| children |
ce4a90427366 |
| rev |
line source |
|
m@46
|
1 (cl:in-package #:amuse-mtp)
|
|
m@46
|
2
|
|
m@46
|
3 (defun make-mtp-composition-identifier (dataset-id composition-id)
|
|
m@46
|
4 (make-instance 'mtp-composition-identifier
|
|
m@46
|
5 :dataset-id dataset-id :composition-id composition-id))
|
|
m@46
|
6
|
|
m@46
|
7 (defun make-mtp-composition (&rest args)
|
|
m@46
|
8 (apply #'make-instance 'mtp-composition args))
|
|
m@46
|
9
|
|
m@46
|
10 (defun make-mtp-event (&rest args)
|
|
m@46
|
11 (apply #'make-instance 'mtp-event args))
|
|
m@46
|
12
|
