Added (quit) and (exit) as synonyms to (bye) - gcl.git - GNU Common Lisp

diff --git a/gcl/o/main.c b/gcl/o/main.c
index d82d405dc..270858ec5 100755
--- a/gcl/o/main.c
+++ b/gcl/o/main.c

@@ -578,6 +578,17 @@ va_dcl

RETURN(1,int,exit_code, 0);

}

+DEFUNO("QUIT",int,fLquit,LISP

+ ,0,1,NONE,II,OO,OO,OO,Lquit,"")(va_alist)

+va_dcl

+{ return fLbye(va_alist); }

+

+DEFUNO("EXIT",int,fLexit,LISP

+ ,0,1,NONE,II,OO,OO,OO,Lexit,"")(va_alist)

+va_dcl

+{ return fLbye(va_alist); }

+

+

c_trace()

{

#ifdef AOSVS