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