Add exit routine to ECL implementation
Signed-off-by: Dmitry Solomennnikov <dmitrys99@mail.ru>
| author |
Dmitry Solomennnikov <dmitrys99@mail.ru> |
| date |
Thu, 13 Jun 2024 18:56:51 +0300 |
| parents |
84fc13b5d416
|
| children |
1239054b95ca
|
| branches/tags |
(none) |
| files |
src/main.lisp |
Changes
--- 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)