Common Lisp で FizzBuzz

fizzbuzz.lisp

(defun fizzbuzz (n)
  (loop for i from 1 to n
   do (cond ((equal (mod i 15) 0) (format t "~%fizzbuzz"))
            ((equal (mod i 5) 0) (format t "~%buzz"))  
            ((equal (mod i 3) 0) (format t "~%fizz"))
            (t (print i)))))

(defun fizzbuzz-main ()
  (fizzbuzz 100))