Common Lisp FizzBuzz

fizzbuzz.lisp

(loop for i from 1 to 100
      as 3-divable = (zerop (mod i 3))
      as 5-divable = (zerop (mod i 5))
      as both-divable = (and 3-divable 5-divable)
      when both-divable collect :FizzBuzz
      else when 3-divable collect :Fizz
      else when 5-divable collect :Buzz
      else collect i)