Mercurial > hg > amuse
changeset 313:aa2545163331
Twiddle meredith methods.
Ignore-this: 57c8ad7ac505841068f1b69498245d1
darcs-hash:20100414185135-16a00-e5e008cec50a531fd23e01e57379adab5fa76c2b.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Wed, 14 Apr 2010 19:51:35 +0100 |
| parents | 32769840b715 |
| children | 937334f2bcd2 |
| files | implementations/meredith/methods.lisp |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/meredith/methods.lisp Wed Apr 14 19:36:55 2010 +0100 +++ b/implementations/meredith/methods.lisp Wed Apr 14 19:51:35 2010 +0100 @@ -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)