# HG changeset patch
# User Jamie Forth <j.forth@gold.ac.uk>
# Date 1302451087 -3600
# Node ID 5090d02f7a834ffcf0111c985b5ad77ecdd4b9e3
# Parent  df5d60cda9a2002acd35f16a5b26f787d39e8522
don't specialize %recompute-standard-composition-period on
%list-slot-sequence

diff -r df5d60cda9a2 -r 5090d02f7a83 base/charm/classes.lisp
--- a/base/charm/classes.lisp	Sun Apr 10 10:24:37 2011 +0100
+++ b/base/charm/classes.lisp	Sun Apr 10 16:58:07 2011 +0100
@@ -107,7 +107,7 @@
 					standard-charm-constituent) &key)
   (amuse::%recompute-standard-composition-period constituent))
 
-(defmethod (setf %list-slot-sequence-data) :after (new-value object)
+(defmethod (setf standard-charm-constituent) :after (new-value object)
   (declare (ignore new-value))
   (amuse::%recompute-standard-composition-period object))