test added

tests/test.lisp

@@ -8,7 +8,17 @@
       (* n (fact (- n 1)))
     ))
 
-(print (fact 1000))
+(print (fact 5))
+
+; for this stack must be 16MB, otherwise 1000 is ok
+(defun scitej (n)
+   (if (<= n 1)
+      1
+      (+ n (scitej
+       (- n 1)))
+    ))
+
+(print (scitej 4000))