snip added by anonymous on Sat Oct 21 22:25:40 2017
(let ((sliders (map (cut qt:find mainwindow <>) '("sl1" "sl2" "sl3" "sl4")))
(signals '("valueChanged(int)" "valueChanged(int)" "valueChanged(int)" "valueChanged(int)"))
(fns (list (qt:receiver (cut set! a <>))
(qt:receiver (cut set! b <>))
(qt:receiver (cut set! c <>))
(qt:receiver (cut set! d <>)) ))
(slots '("slot(int)" "slot(int)" "slot(int)" "slot(int)")) )
(map qt:connect sliders signals fns slots) )