Mercurial > hg > amuse
diff base/charm/generics.lisp @ 253:b5ffec94ae6d
some very sketchy Charm constituent code
| author | Jamie Forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:18 +0000 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/base/charm/generics.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -0,0 +1,15 @@ +(cl:in-package #:amuse-charm) + +(defgeneric id (object) + (:documentation "Generic id function.")) + +(defgeneric make-charm-parent-identifier (implementation-package id)) + +(defgeneric make-charm-particle-identifier (implementation-package id)) + +;; (defgeneric %cache-charm-particles (implementation-package +;; charm-constituent)) + +(defgeneric get-charm-particles (constituent-identifier ids parent)) + +(defgeneric get-charm-parent (constituent-identifier))