From 529d16d0b258755e752e22e2b53b52d677e7f0f2 Mon Sep 17 00:00:00 2001 From: sds <sds@localhost> Date: Thu, 15 Apr 2010 13:51:53 +0000 Subject: [PATCH] fix test numbering, reported by Raymond Toy <toy.raymond@gmail.com> --- ansi-tests/loop10.lsp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/ansi-tests/loop10.lsp b/ansi-tests/loop10.lsp index 95278c08..8052c5f3 100644 --- a/ansi-tests/loop10.lsp +++ b/ansi-tests/loop10.lsp @@ -516,43 +516,43 @@ (loop for x from 1 to 10 counting (expand-in-current-env (%m t)))) 10) -(deftest loop.10.106 +(deftest loop.10.107 (macrolet ((%m (z) z)) (loop for x from 1 to 10 count (expand-in-current-env (%m nil)))) 0) -(deftest loop.10.107 +(deftest loop.10.108 (macrolet ((%m (z) z)) (loop for x in '(1 4 10 5 7 9) maximize (expand-in-current-env (%m x)))) 10) -(deftest loop.10.108 +(deftest loop.10.109 (macrolet ((%m (z) z)) (loop for x in '(1 4 10 5 7 9) maximizing (expand-in-current-env (%m 17)))) 17) -(deftest loop.10.109 +(deftest loop.10.110 (macrolet ((%m (z) z)) (loop for x in '(5 4 10 1 7 9) minimize (expand-in-current-env (%m x)))) 1) -(deftest loop.10.110 +(deftest loop.10.111 (macrolet ((%m (z) z)) (loop for x in '(5 4 10 1 7 9) minimizing (expand-in-current-env (%m 3)))) 3) -(deftest loop.10.111 +(deftest loop.10.112 (macrolet ((%m (z) z)) (loop for x in '(1 4 10 5 7 9) sum (expand-in-current-env (%m x)))) 36) -(deftest loop.10.112 +(deftest loop.10.113 (macrolet ((%m (z) z)) (loop for x in '(1 4 10 5 7 9) summing (expand-in-current-env (%m 2)))) -- GitLab