Mercurial > hg > amuse

comparison base/classes.lisp @ 248:e5ff7d53f084

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add :initform nil to linked-event composition slot.
author Jamie Forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents 25b6b52eb770
children
comparison
equal deleted inserted replaced
247:2b31a375701b 248:e5ff7d53f084
82 (:documentation "Notelike object")) 82 (:documentation "Notelike object"))
83 83
84 (defclass linked-event (amuse-object) 84 (defclass linked-event (amuse-object)
85 ((composition :reader composition 85 ((composition :reader composition
86 :writer %set-composition 86 :writer %set-composition
87 :initarg :composition)) 87 :initarg :composition
88 :initform nil))
88 (:documentation "This provides a composition slot for events. The 89 (:documentation "This provides a composition slot for events. The
89 generic function initialize-instance can be specialized on an 90 generic function initialize-instance can be specialized on an
90 implementation composition to assign the event slots when a 91 implementation composition to assign the event slots when a
91 composition instance is created. Or the slot can be assigned within 92 composition instance is created. Or the slot can be assigned within
92 the composition constructor function. FIXME: Not sure about this - 93 the composition constructor function. FIXME: Not sure about this -