From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 6 Apr 2004 07:15:57 +0000 (+0000)
Subject: r8827: correct ignore-errors
X-Git-Tag: v3.8.6~740
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=dac6f1bff23c77e8535739ac8f4be95bb1ef65b7;hp=b69ed367889def50db1931ab33fa9bd9a35986ab;p=clsql.git

r8827: correct ignore-errors
---

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)