# HG changeset patch
# User Dmitry Solomennnikov <dmitrys99@mail.ru>
# Date 1718294211 -10800
# Node ID 7dab213bec41a9165f24ec5cdc75f6a5d01deebc
# Parent  84fc13b5d4169cb2207d3336c3735a4b2da563b8
Add exit routine to ECL implementation

Signed-off-by: Dmitry Solomennnikov <dmitrys99@mail.ru>

diff -r 84fc13b5d416 -r 7dab213bec41 src/main.lisp
--- a/src/main.lisp	Wed Mar 27 15:29:48 2024 -0400
+++ b/src/main.lisp	Thu Jun 13 18:56:51 2024 +0300
@@ -78,7 +78,8 @@
   `print-error-and-exit` if it's not implemented for your particular Lisp.
 
   "
-  #-(or sbcl ccl abcl lispworks) (error "~S is not supported on this implementation." 'exit)
+  #-(or ecl sbcl ccl abcl lispworks) (error "~S is not supported on this implementation." 'exit)
+  #+ecl (si:exit code)
   #+sbcl (sb-ext:exit :code code)
   #+ccl (ccl:quit code)
   #+abcl (ext:quit :status code)