Mercurial > hg > amuse
comparison implementations/mtp/constructors.lisp @ 53:ce4a90427366
implementations/mtp/: add interface to datasets
darcs-hash:20070621120721-c0ce4-54d29dd03ab4d7d61c70ed808d0fd3277687929e.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Thu, 21 Jun 2007 13:07:21 +0100 |
| parents | 34fb42cba5b9 |
| children |
comparison
equal
deleted
inserted
replaced
| 52:e0acd4c37121 | 53:ce4a90427366 |
|---|---|
| 1 (cl:in-package #:amuse-mtp) | 1 (cl:in-package #:amuse-mtp) |
| 2 | |
| 3 (defun make-mtp-dataset-identifier (dataset-id) | |
| 4 (make-instance 'mtp-dataset-identifier :dataset-id dataset-id)) | |
| 2 | 5 |
| 3 (defun make-mtp-composition-identifier (dataset-id composition-id) | 6 (defun make-mtp-composition-identifier (dataset-id composition-id) |
| 4 (make-instance 'mtp-composition-identifier | 7 (make-instance 'mtp-composition-identifier |
| 5 :dataset-id dataset-id :composition-id composition-id)) | 8 :dataset-id dataset-id :composition-id composition-id)) |
| 9 | |
| 10 (defun make-mtp-dataset (&rest args) | |
| 11 (apply #'make-instance 'mtp-dataset args)) | |
| 6 | 12 |
| 7 (defun make-mtp-composition (&rest args) | 13 (defun make-mtp-composition (&rest args) |
| 8 (apply #'make-instance 'mtp-composition args)) | 14 (apply #'make-instance 'mtp-composition args)) |
| 9 | 15 |
| 10 (defun make-mtp-event (&rest args) | 16 (defun make-mtp-event (&rest args) |