[wvxvw]

А вот собственно, решение на божественном языке

#!/usr/bin/sbcl --script
(defun fizz-buzz (i threes fives)
	(let (result)
		(when (< i 100)
			(setq result "")
			(when (= i threes)
				(setq result "Fizz")
				(setq threes (+ threes 3))
			)
			(when (= i fives)
				(setq result (concatenate 'string result "Buzz"))
				(setq fives (+ fives 5))
			)
			(when (equal result "")
				(setq result i)
			)
			(print result)
			(fizz-buzz (1+ i) threes fives)
		)
	)
)

(fizz-buzz 1 3 5)