Commit c39a509f authored by pfdietz's avatar pfdietz
Browse files

Tests of DOTIMES when the count is negative, and when the index variable has a...

Tests of DOTIMES when the count is negative, and when the index variable has a declared type that does not include the type of the (negative) count form.
parent 099b0920
......@@ -500,8 +500,20 @@
y)
(3 2 1 0))
(def-macro-test dotimes.error.1
(dotimes (i 10)))
(deftest dotimes.19
(dotimes (i 100 i))
100)
(deftest dotimes.20
(dotimes (i -100 i))
0)
(deftest dotimes.21
(let ((x 0))
(dotimes (i (1- most-negative-fixnum) (values i x))
(declare (type fixnum i))
(incf x)))
0 0)
(def-macro-test dotimes.error.1
(dotimes (i 10)))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment