From dac6f1bff23c77e8535739ac8f4be95bb1ef65b7 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 6 Apr 2004 07:15:57 +0000
Subject: [PATCH] r8827: correct ignore-errors

---
 usql-tests/test-init.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/usql-tests/test-init.lisp b/usql-tests/test-init.lisp
index 0300371..3334908 100644
--- a/usql-tests/test-init.lisp
+++ b/usql-tests/test-init.lisp
@@ -244,9 +244,15 @@
                 :make-default t
                 :if-exists :old))
 
+(defmacro with-ignore-errors (&rest forms)
+  `(progn
+     ,@(mapcar
+	(lambda (x) (list 'ignore-errors x))
+	forms)))
+
 (defun test-initialise-database ()
     ;; Delete the instance records
-  (ignore-errors 
+  (with-ignore-errors 
     (usql:delete-instance-records company1)
     (usql:delete-instance-records employee1)
     (usql:delete-instance-records employee2)
-- 
2.34.1