diff --git a/src/tests/normal-tests/mixed.lsp b/src/tests/normal-tests/mixed.lsp index 586485148..3e91a7596 100644 --- a/src/tests/normal-tests/mixed.lsp +++ b/src/tests/normal-tests/mixed.lsp @@ -364,3 +364,11 @@ do (is-true (funcall (cdr (elt object-table i)) (elt to-be-serialized i) (elt deserialized i)))))) + +;;; Date: 2019-12-26 +;;; Description: +;;; +;;; Stack overflow detection and recovery +(test mix.0018.stack-overflow + (signals ext:stack-overflow (labels ((f (x) (f (1+ x)))) + (f 1))))