diff options
| author | Mistivia <i@mistivia.com> | 2025-06-23 00:09:54 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-23 00:12:58 +0800 |
| commit | 957175b7f1bff57477ccd000c956bcbe06d159cf (patch) | |
| tree | 73d5a368eda556dd56af0d89a40c97befd8084ff /tests/tailcall.lisp | |
| parent | 89f144d3ab27e54f7ad8cbf393418a3baa169f0f (diff) | |
test with intensive gc
Diffstat (limited to 'tests/tailcall.lisp')
| -rw-r--r-- | tests/tailcall.lisp | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/tests/tailcall.lisp b/tests/tailcall.lisp index 86a88c8..1aa5e38 100644 --- a/tests/tailcall.lisp +++ b/tests/tailcall.lisp @@ -6,7 +6,6 @@ (defun is-odd (x) (is-even (- x 1))) -(assert (is-even 10000)) (assert (is-even 10)) (assert (is-even 0)) (assert (is-odd 1)) @@ -18,9 +17,3 @@ (progn (cnt-down (- x 1))))) -(assert (cnt-down 10000)) - -;; can pass without stack overflow, -;; but comment out for too time-consuming -;; (assert (is-even 1000000)) -;; (assert (cnt-down 1000000)) |