j@318: (cl:in-package #:amuse-charm)
j@318: 
j@318: (defgeneric id (object)
j@318:   (:documentation "Generic id function."))
j@318: 
j@318: (defgeneric make-charm-parent-identifier (implementation-package id))
j@318: 
j@318: (defgeneric make-charm-particle-identifier (implementation-package id))
j@318: 
j@318: ;; (defgeneric %cache-charm-particles (implementation-package
j@318: ;; 				    charm-constituent))
j@318: 
j@318: (defgeneric get-charm-particles (constituent-identifier ids parent))
j@318: 
j@318: (defgeneric get-charm-parent (constituent-identifier))