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