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)

Rainer Joswig wrote:

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

Scheme:

(map
(lambda(x y) (list x '< y))
'(2 3 4 5)
'(6 7 8 9))

===>
((2 < 6) (3 < 7) (4 < 8) (5 < 9))

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