CommonLispでFizzBuzz

fizzbuzz.lisp

(defun fizzbuzz()
  (dotimes (n 1000000) 
    (defparameter *a* (+ n 1))
    (cond
      ((equal(mod *a* 15) 0) (print "FizzBuzz"))
      ((equal(mod *a* 5) 0) (print "Buzz"))
      ((equal(mod *a* 3) 0) (print "Fizz"))
      (1 (print *a*))
    )))
(ccl:save-application "fizzbuzz"
                      :toplevel-function #'fizzbuzz
                      :prepend-kernel t)