なんかの課題ならしょうがないけど，せっかく CL なんだから
既存の infix パッケージ使えば？
http://www.cliki.net/infix