projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
0.9.13.34: Class objects as specializers
[sbcl.git]
/
src
/
compiler
/
seqtran.lisp
diff --git
a/src/compiler/seqtran.lisp
b/src/compiler/seqtran.lisp
index
4a75395
..
0ce0497
100644
(file)
--- a/
src/compiler/seqtran.lisp
+++ b/
src/compiler/seqtran.lisp
@@
-161,7
+161,7
@@
(process-vector `(array-dimension ,into 0))))
(when found-vector-p
(bindings `(length (min ,@(vector-lengths))))
- (tests `(= index length)))
+ (tests `(>= index length)))
`(do (,@(bindings))
((or ,@(tests)) ,result)
(declare ,@(declarations))