From: Will Newton <[email protected]>
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
_______________________________________________
Gcl-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/gcl-devel
