[Ecls-list] Bug in mapping functions

[Johan Bockgård]

Hello, and thanks for ECL!

Code like this gives an error when M > 63

    (apply #'mapcar #'+ (loop for n below M collect (list n)))

this is especially annoying as it regularly breaks completion in
SLIME.

I think a fix looks something along these lines, thought it may very
well have other negative effects:


[cl_stack_push_va_list]:

        while (args[0].narg > 0) {
-                args[0].narg--;
-                *(cl_env.stack_top++) = va_arg(args[0].args,cl_object);
+                *(cl_env.stack_top++) = cl_va_arg(args);
        }

-- 
Johan Bockgård