From: Nathan F. <nf...@us...> - 2007-04-07 01:13:26
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv20889/tests Added Files: break-on-signals.impure.lisp Log Message: 1.0.4.36: Commit Kevin Reid's "safer *break-on-signals*" patch. --- NEW FILE: break-on-signals.impure.lisp --- ;;;; This software is part of the SBCL system. See the README file for ;;;; more information. ;;;; ;;;; While most of SBCL is derived from the CMU CL system, the test ;;;; files (like this one) were written from scratch after the fork ;;;; from CMU CL. ;;;; ;;;; This software is in the public domain and is provided with ;;;; absolutely no warranty. See the COPYING and CREDITS files for ;;;; more information. (cl:in-package :cl-user) ;;; If *BREAK-ON-SIGNALS* has a bogus value, don't go off in an infinite ;;; recursion. (assert (catch 'ok (handler-bind ((error (lambda (condition) (when (search "NOT-A-TYPE-SPECIFIER" (princ-to-string condition)) (throw 'ok t))))) (let ((*break-on-signals* '#:not-a-type-specifier)) (signal "foo")) nil))) |