Mercurial > hg > amuse

view implementations/mtp/constructors.lisp @ 203:23b97270de8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changes to gsharp import to accommodate mensural notation. N.B. This won't work without my branch of GSharp committer: David Lewis <d.lewis@gold.ac.uk>
author David Lewis <david@localhost.localdomain>
date Wed, 08 Sep 2010 13:06:57 +0100
parents ce4a90427366
children
line wrap: on
line source
(cl:in-package #:amuse-mtp) 

(defun make-mtp-dataset-identifier (dataset-id)
  (make-instance 'mtp-dataset-identifier :dataset-id dataset-id))

(defun make-mtp-composition-identifier (dataset-id composition-id)
  (make-instance 'mtp-composition-identifier 
                 :dataset-id dataset-id :composition-id composition-id))

(defun make-mtp-dataset (&rest args)
  (apply #'make-instance 'mtp-dataset args))

(defun make-mtp-composition (&rest args) 
  (apply #'make-instance 'mtp-composition args))

(defun make-mtp-event (&rest args) 
  (apply #'make-instance 'mtp-event args))