1.0.23.21: Stack allocated conses for MIPS.
[sbcl.git] / tests / break-on-signals.impure.lisp
1 ;;;; This software is part of the SBCL system. See the README file for
2 ;;;; more information.
3 ;;;;
4 ;;;; While most of SBCL is derived from the CMU CL system, the test
5 ;;;; files (like this one) were written from scratch after the fork
6 ;;;; from CMU CL.
7 ;;;;
8 ;;;; This software is in the public domain and is provided with
9 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
10 ;;;; more information.
11
12 (cl:in-package :cl-user)
13
14 ;;; If *BREAK-ON-SIGNALS* has a bogus value, don't go off in an infinite
15 ;;; recursion.
16 (assert
17   (catch 'ok
18     (handler-bind
19         ((error
20           (lambda (condition)
21             (when (search "NOT-A-TYPE-SPECIFIER" (princ-to-string condition))
22               (throw 'ok t)))))
23       (let ((*break-on-signals* '#:not-a-type-specifier))
24         (signal "foo"))
25     nil)))