Fizzbuzz Golf

fibu.lisp

(defun m (x i) (= 0 (mod x i)))

(defun fibu (x)
  (cond
    ((m x 15) "FizzBuzz")
    ((m x 3) "Fizz")
    ((m x 5) "Buzz")))

(loop for i from 1 to 100 do
      (princ (or (fibu i) i))
      (princ #\newline))

fizzbuzz.lisp

(defun m (x i) (= 0 (mod (+ x 1) i)))
(dotimes (i 100)
      (princ (cond
               ((m i 15) "FizzBuzz")
               ((m i 3) "Fizz")
               ((m i 5) "Buzz")
               (t (+ i 1))))
      (princ #\newline))