Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
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
19fbbd5a
Commit
19fbbd5a
authored
Apr 23, 2005
by
pfdietz
Browse files
Some more dotimes tests, where the bound expr is not a constant
parent
2fd57a36
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/dotimes.lsp
View file @
19fbbd5a
...
...
@@ -122,6 +122,15 @@
y)
(0 0 0 0))
(deftest dotimes.17a
(let ((i 0) (y nil) (bound 4))
(declare (special i))
(flet ((%f () i))
(dotimes (i bound)
(push (%f) y)))
y)
(0 0 0 0))
(deftest dotimes.18
(let ((i 0) (y nil))
(declare (special i))
...
...
@@ -132,6 +141,16 @@
y)
(3 2 1 0))
(deftest dotimes.18a
(let ((i 0) (y nil) (bound 4))
(declare (special i))
(flet ((%f () i))
(dotimes (i bound)
(declare (special i))
(push (%f) y)))
y)
(3 2 1 0))
(deftest dotimes.19
(dotimes (i 100 i))
100)
...
...
@@ -166,5 +185,21 @@
(declare (special x)))))
:good)
(deftest dotimes.23a
(let ((x :good) (bound 10))
(declare (special x))
(let ((x :bad))
(dotimes (i bound x)
(declare (special x)))))
:good)
(deftest dotimes.24
(let ((bound 4) (j 0))
(values
(dotimes (i bound)
(incf j) (decf bound))
bound j))
nil 0 4)
(def-macro-test dotimes.error.1
(dotimes (i 10)))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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