Rainer Joswig wrote:

(LOOP FOR x IN list-for-xs AND y IN list-for-ys
COLLECT (my-function a y x b))

(define x-list '(x0 x1 x2 x3))
(define y-list '(y0 y1 y2 y3))

(map (cut list '! <> '! <>) x-list y-list)

===>
((! x0 ! y0) (! x1 ! y1) (! x2 ! y2) (! x3 ! y3))

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)