Mercurial > hg > amuse
changeset 239:7412629f5c78
Twiddle meredith methods.
Ignore-this: 57c8ad7ac505841068f1b69498245d1
darcs-hash:20100414185135-16a00-e5e008cec50a531fd23e01e57379adab5fa76c2b.gz
committer: Jamie Forth <j.forth@gold.ac.uk>
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:18 +0000 |
| parents | 55c188ef8b0a |
| children | c454b4fc9aad |
| files | implementations/meredith/methods.lisp |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/meredith/methods.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/implementations/meredith/methods.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -1,13 +1,17 @@ (cl:in-package #:amuse-meredith) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;;===================================================================== ;;; Specialised constructors +;;;===================================================================== + (defmethod make-composition-identifier ((package (eql *package*)) composition-id) (make-meredith-composition-identifier composition-id)) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; Compositions + +;;;===================================================================== +;;; Specialized composition methods +;;;===================================================================== (defvar *event-attributes* #.(clsql:locally-enable-sql-reader-syntax)