初学者求教一个lisp的问题

leoking

我刚开始看lisp，写了下边一段代码
但是死活运行不了
总是显示错误
（wrong-type-argument listp 0)
这是怎么回事阿？

(defun triangle (number)
(let (tmp 0)
(while ( >= number 0)
;(setq tmp (+ tmp (* number number)))
(setq tmp (+ number 1))
(setq number (- number 1)))
tmp))

(triangle 5)

xiaoshao_0_0

hao,鼓励一下，我看懂了，但是不知道哪里错了，呵呵。