# HG changeset patch
# User Jamie Forth <j.forth@gold.ac.uk>
# Date 1201111754 0
# Node ID 98443d36ac6a3f590d018541e907021659b28d12
# Parent  5db7ab964f2fae400aea18cf04698e97021ecc9a
 Fixed sequence:make-sequence-like :around method

The :around method clobbered the %data slot, as Christophe put it.

darcs-hash:20080123180914-990ec-629ecf5d60363512e6831800bb1e61dbcb8f94f5.gz

diff -r 5db7ab964f2f -r 98443d36ac6a base/methods.lisp
--- 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)