snippetsmania.com
Post and share your code snippets

(defun factorial(x)
(cond ((zerop x) 1)
('T (* x (factorial (1- x)))) ))

(factorial 1000)

source