# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1718296534 14400
# Node ID 1239054b95caf4a44a7def52c82349d23d6877fc
# Parent  84fc13b5d4169cb2207d3336c3735a4b2da563b8# Parent  7dab213bec41a9165f24ec5cdc75f6a5d01deebc
Merge pull request #5 from dmitrys99/master

Add exit routine to ECL implementation

diff -r 84fc13b5d416 -r 1239054b95ca src/main.lisp
--- a/src/main.lisp	Wed Mar 27 15:29:48 2024 -0400
+++ b/src/main.lisp	Thu Jun 13 12:35:34 2024 -0400
@@ -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)