You could do it in ~15 lines with Clojure: http://www.fogus.me/fun/unfix/infix-src.html

I suspect most Lisps would require about the same.