[CM] copier -> length of periods

[Johannes Quint]

i have the folllowing pattern:

(setf cp
  (new copier :of
      (new heap :of '(a b c)) :for (new random :of '(1 2 3)))
  )

now, when the 'for'-option of copier selects i.e. a 2,
the pattern-period contains 6 elements, i.e.:

(next cp t)
=> (b a c b a c)

but what i want, is that the repetition comes in the NEXT period,
i.e.:

(loop repeat 5 collect (next cp t))
=> ((a c b)(a c b)(c a b)(c a b)(c a b))

thanks for hints, jq

---
Johannes Quint
Rilkestr.55
D-53225 Bonn
0228 468256
johannes.quint at web.de
http://private.addcom.de/j.quint/index.htm
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/enriched
Size: 652 bytes
Desc: not available
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20050227/09f5718d/attachment.bin>