From f73cf65942cb9dac6233fbc0c593643b6cecb59c Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 5 Mar 2003 02:34:10 +0000 Subject: [PATCH] Added code to invoke-debugger.error.[12] to avoid bombing the tests on ACL 6.2 --- ansi-tests/invoke-debugger.lsp | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/ansi-tests/invoke-debugger.lsp b/ansi-tests/invoke-debugger.lsp index 405ee797..d4c66109 100644 --- a/ansi-tests/invoke-debugger.lsp +++ b/ansi-tests/invoke-debugger.lsp @@ -23,11 +23,21 @@ good) (deftest invoke-debugger.error.1 - (classify-error (invoke-debugger)) + (classify-error + (block done + (let ((*debugger-hook* #'(lambda (&rest args) + (declare (ignore args)) + (return-from done 'bad)))) + (invoke-debugger)))) program-error) (deftest invoke-debugger.error.2 - (classify-error (invoke-debugger (make-condition 'simple-error) nil)) + (classify-error + (block done + (let ((*debugger-hook* #'(lambda (&rest args) + (declare (ignore args)) + (return-from done 'bad)))) + (invoke-debugger (make-condition 'simple-error) nil)))) program-error) ;;; If the debugger hook function expects the wrong number -- GitLab