gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

Added (quit) and (exit) as synonyms to (bye)unlabeled-1.7.2

-rw-r--r--

-rwxr-xr-x

2 files changed, 6 insertions, 0 deletions

diff --git a/gcl/h/new_decl.h b/gcl/h/new_decl.h
index 6c9e98d94..88984a805 100644
--- a/gcl/h/new_decl.h
+++ b/gcl/h/new_decl.h

@@ -1,4 +1,6 @@

EXTER int fLbye ();

+EXTER int fLquit ();

+EXTER int fLexit ();

EXTER object fLidentity ();

EXTER object fLlisp_implementation_version ();

EXTER object sSAlisp_maxpagesA ;

diff --git a/gcl/o/new_init.c b/gcl/o/new_init.c
index 20e75142d..167dd71e4 100755
--- a/gcl/o/new_init.c
+++ b/gcl/o/new_init.c

@@ -3,6 +3,10 @@ NewInit(){

DEFUNO("BYE",int,fLbye,LISP

,0,1,0 ,II,OO,OO,OO,Lby,"")

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

+ ,0,1,0 ,II,OO,OO,OO,Lquit,"")

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

+ ,0,1,0 ,II,OO,OO,OO,Lexit,"")

DEFUNO("IDENTITY",object,fLidentity,LISP

,1,1,0 ,OO,OO,OO,OO,Lidentity,"")

DEFUNO("LISP-IMPLEMENTATION-VERSION",object,fLlisp_implementation_version,LISP

generated by cgit v1.2.3 (git 2.25.1) at 2025年09月01日 18:01:45 +0000