Mercurial > hg > amuse
changeset 171:98443d36ac6a
Fixed sequence:make-sequence-like :around method
The :around method clobbered the %data slot, as Christophe put it.
darcs-hash:20080123180914-990ec-629ecf5d60363512e6831800bb1e61dbcb8f94f5.gz
| author | Jamie Forth <j.forth@gold.ac.uk> |
|---|---|
| date | Wed, 23 Jan 2008 18:09:14 +0000 |
| parents | 5db7ab964f2f |
| children | b16472d7823f |
| files | base/methods.lisp |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/base/methods.lisp Wed Jan 23 15:55:34 2008 +0000 +++ b/base/methods.lisp Wed Jan 23 18:09:14 2008 +0000 @@ -467,8 +467,9 @@ ;; Get timing information (setf new-sequence (%recompute-standard-composition-period new-sequence)) (dolist (slotd (sb-mop:class-slots (class-of new-sequence)) new-sequence) - (unless (or (equal (sb-mop:slot-definition-name slotd) 'time) - (equal (sb-mop:slot-definition-name slotd) 'interval)) + (unless (or (equal (sb-mop:slot-definition-name slotd) '%data) + (equal (sb-mop:slot-definition-name slotd) 'time) + (equal (sb-mop:slot-definition-name slotd) 'interval)) (setf (sb-mop:slot-value-using-class (class-of new-sequence) new-sequence slotd)