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)))