[Gcl-devel] [PATCH 07/11] Fix handling of varargs in sSuniversal_error_handler

[Will Newton]

From: Will Newton <address@hidden>

VFUN_NARGS includes the args we have already processed so account
for that in the loop. Also add output of a space between outputs.
---
 gcl/o/error.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gcl/o/error.c b/gcl/o/error.c
index 3f82626..cc1f95d 100644
--- a/gcl/o/error.c
+++ b/gcl/o/error.c
@@ -357,8 +357,10 @@ 
DEFUN("UNIVERSAL-ERROR-HANDLER",object,fSuniversal_error_handler,SI
   princ(error_fmt_string,Cnil);
   putchar(' ');
   va_start(ap,error_fmt_string);
-  for (n=VFUN_NARGS,l=Cnil,f=OBJNULL;(z=NEXT_ARG(n,ap,l,f,OBJNULL))!=OBJNULL;)
+  for (n=VFUN_NARGS - 
6,l=Cnil,f=OBJNULL;(z=NEXT_ARG(n,ap,l,f,OBJNULL))!=OBJNULL;) {
     princ(z,Cnil);
+    putchar(' ');
+  }
   flush_stream(symbol_value(sLAstandard_outputA));
   va_end(ap);
   printf("\nLisp initialization failed.\n");
-- 
1.9.3