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