From 6be426978c86bc7a061cc66c8fda738be2e59a16 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 10 Sep 2023 07:24:34 -0700
Subject: Added :do

---
 src/testiere.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/testiere.lisp b/src/testiere.lisp
index df516e0..9c9e4bb 100644
--- a/src/testiere.lisp
+++ b/src/testiere.lisp
@@ -84,6 +84,9 @@ restarts to try when tests fail."
     ((list* :let (list* bindings) body)
      `(let ,bindings ,@(expand-test-forms body)))
 
+    ((list :do form)
+     form)
+
     ((list :is form)
      `(assert ,form () "~s failed" ',form))
     
-- 
cgit v1.2.3