Woops, wrong about the samplers
hehe turns out in my refactoring hubris I had forgotten how my samplers worked. THey are actually used like this:
(with-sampling ((*tex* *sam*))
(map-g #'prog-1 *stream* :tex *tex*))
Which is more reasonable :) I still want to change it though