mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-07 01:40:41 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix typo.

Browse source
This commit is contained in:
jjgarcia 2003-04-10 19:15:24 +00:00
parent 54487f34f7
commit 4d2af3a55c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/interpreter.d
View file

@ -546,7 +546,7 @@ interpret_dotimes(cl_object *vector) {
vector = interpret(vector);
output = packed_label(vector-1);
if (FIXNUMP(VALUES(0))) {
if (FIXNUMP(length)) {
cl_fixnum i, l = fix(length);
/* 3) Loop while needed */
for (i = 0; i < l;) {