annotate implementations/mtp/constructors.lisp @ 50:49aae39b96dc
Update to (in wrong place) n-grams.lisp
darcs-hash:20070620110403-f76cc-67a5d10a8ee11b3c036448b1fb1f8a740e52bc32.gz
| author |
David Lewis <d.lewis@gold.ac.uk> |
| date |
Wed, 20 Jun 2007 12:04:03 +0100 |
| parents |
34fb42cba5b9 |
| 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
|
