diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp index 501d38fe19659721501f5702cda5300a5f5d30c7..48e4729b323add5e05d27aa6e694c4d80c55fe1c 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))