0.7.7.38:
[sbcl.git] / tests / exhaust.impure.lisp
1 ;;;; tests of the system's ability to catch resource exhaustion problems
2
3 ;;;; This software is part of the SBCL system. See the README file for
4 ;;;; more information.
5 ;;;;
6 ;;;; While most of SBCL is derived from the CMU CL system, the test
7 ;;;; files (like this one) were written from scratch after the fork
8 ;;;; from CMU CL.
9 ;;;; 
10 ;;;; This software is in the public domain and is provided with
11 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
12 ;;;; more information.
13
14 (cl:in-package :cl-user)
15 \f
16 ;;; Prior to sbcl-0.7.1.38, doing something like (RECURSE), even in
17 ;;; safe code, would crash the entire Lisp process. Then the soft
18 ;;; stack checking was introduced, which checked (in safe code) for
19 ;;; stack exhaustion at each lambda.
20
21 ;;; Post 0.7.6.1, this was rewritten to use mprotect()-based stack
22 ;;; protection which does not require lisp code to check anything,
23 ;;; and works at all optimization settings.  However, it now signals a
24 ;;; STORAGE-CONDITION instead of an ERROR, so this test needs revising
25 (locally
26   (defun recurse () (recurse) (recurse))
27   (handler-case
28     (recurse)
29     (storage-condition (c) (declare (ignore c)) (quit :unix-status 104))))
30 \f
31 ;;; oops
32 (quit :unix-status 1)