[2010-01] really noob sbcl, I guess

euler001.lisp

#!/usr/bin/env sbclx
; I'd like to do this with map/reduce stuff,
; but I'll not get ahead of myself yet.
(let
	((sum 0))
	(do
		(
			(i 1 (1+ i))
			(limit 1000)
		)
		((>= i limit))
	
		(if
			(or ; condition
				(= 0
					(mod i 5)
				)
			
				(= 0
					(mod i 3)
				)
			)
			
			(setq sum (+ sum i)) ; if true
			
			; if false (nothing)
		)
	
	)
	(
		print sum
	)
)