eadmund/ironclad — comment on commit 35285fa429ac6f5845763a7bfa2b3bb68db59d3b
File: src/prng/fortuna.lisp line 44
By froydnj:

I think you want something more like (produce-digest digest :digest seed :digest-start (* i 32)) to avoid allocating.