Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
529d16d0
Commit
529d16d0
authored
Apr 15, 2010
by
sds
Browse files
fix test numbering, reported by Raymond Toy <toy.raymond@gmail.com>
parent
10ba407e
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/loop10.lsp
View file @
529d16d0
...
...
@@ -516,43 +516,43 @@
(loop for x from 1 to 10 counting (expand-in-current-env (%m t))))
10)
(deftest loop.10.10
6
(deftest loop.10.10
7
(macrolet
((%m (z) z))
(loop for x from 1 to 10 count (expand-in-current-env (%m nil))))
0)
(deftest loop.10.10
7
(deftest loop.10.10
8
(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.10
8
(deftest loop.10.10
9
(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.10
9
(deftest loop.10.1
1
0
(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.11
0
(deftest loop.10.11
1
(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.11
1
(deftest loop.10.11
2
(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.11
2
(deftest loop.10.11
3
(macrolet
((%m (z) z))
(loop for x in '(1 4 10 5 7 9) summing (expand-in-current-env (%m 2))))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment