Skip to content
Snippets Groups Projects
Commit 7f5b511d authored by ram's avatar ram
Browse files

Added UNSIGNED-BYTE declarations in DOTIMES to help type inference.

parent 5b219998
No related branches found
No related tags found
No related merge requests found
...@@ -1421,10 +1421,12 @@ ...@@ -1421,10 +1421,12 @@
(cond ((numberp count) (cond ((numberp count)
`(do ((,var 0 (1+ ,var))) `(do ((,var 0 (1+ ,var)))
((>= ,var ,count) ,result) ((>= ,var ,count) ,result)
(declare (type unsigned-byte ,var))
,@body)) ,@body))
(t (let ((v1 (gensym))) (t (let ((v1 (gensym)))
`(do ((,var 0 (1+ ,var)) (,v1 ,count)) `(do ((,var 0 (1+ ,var)) (,v1 ,count))
((>= ,var ,v1) ,result) ((>= ,var ,v1) ,result)
(declare (type unsigned-byte ,var))
,@body))))) ,@body)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment