(bind-func xtm_light_pos
(let ((lights:xtm_lights* null))
(lambda (light:i32 x y z)
(set! lights (xtm_get_lights))
(if (> light (tref lights 9)) (tset! lights 9 light))
(set! light (- light 1))
(if (or (< light 0) (> light 9))
(begin (printf "No such light!\n") void)
(let ((a:float* (pref-ptr (tref lights 0) (* light 4))))
(pfill! a x y z 1.0)
void)))))