There's a set of X/Xt/Motif bindings in libxm:

ftp://ccrma-ftp.stanford.edu/pub/Lisp/libxm.tar.gz

Guile and Gauche are supported, as well as Ruby and Forth.
Used by Snd -- lots of examples in its scheme files.