Code: Select all
ERR: call or result stack overflow in function set : term
Code: Select all
ERR: call or result stack overflow in function set : term
Code: Select all
$ newlisp -s 10000 foo.lsp
Code: Select all
$ newlisp -x foo.lsp foo
Code: Select all
$ newlisp -s 10000 -x foo.lsp foo
Code: Select all
> (define (call x) (cond ((= x 1) x) (true (dec x) (+ x (call x)))))
> (call 1000)
ERROR: stack over flow