From c3c3bca049b48b35c6e4763cefd8901f0d270787 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 2 Aug 2003 18:31:47 +0000
Subject: [PATCH] Fixed control of test execution based on notes (thanks GM.)

---
 ansi-tests/rt.lsp | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp
index 501d38fe..48e4729b 100644
--- a/ansi-tests/rt.lsp
+++ b/ansi-tests/rt.lsp
@@ -71,11 +71,9 @@
        (list* (name ,var) (form ,var) (vals ,var)))))
 
 (defun pending-tests ()
-  (do ((l (cdr *entries*) (cdr l))
-       (r nil))
-      ((null l) (nreverse r))
-    (when (pend (car l))
-      (push (name (car l)) r))))
+  (loop for entry in (cdr *entries*)
+	when (and (pend entry) (not (has-disabled-note entry)))
+	collect (name entry)))
 
 (defun rem-all-tests ()
   (setq *entries* (list nil))
-- 
GitLab