LISPでFizzBuzz

http://ideone.com/XTBbc
　CommonLISPでFizzBuzz。動作環境はMacOSX(10.6.8)、brew install clispで用意。

　なるだけ古いスタイルで、doループとcondを使って書きました。

(setq f 1) (setq b 1)
(do ((c 1 (+ c 1)) (f 1 (+ f 1)) (b 1 (+ b 1)))
  ((> c 100))
  (cond
    ((and (= f 3) (= b 5)) (princ "FizzBuzz") (terpri) (setq f 0) (setq b 0))
    ((= f 3) (princ "Fizz") (terpri) (setq f 0))
    ((= b 5) (princ "Buzz") (terpri) (setq b 0))
    (t (princ c) (terpri))
  )
)

穴ゴルで動作確認しました。
anarchy golf - FizzBuzz

参考：
http://xyzzy.s53.xrea.com/reference/wiki.cgi?w=%3Cpackage%3Elisp%3C%2Fpackage%3E&a=search