Merge pull request #5 from dmitrys99/master
Add exit routine to ECL implementation
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Thu, 13 Jun 2024 12:35:34 -0400 |
| parents |
84fc13b5d416
(current diff)
7dab213bec41
(diff)
|
| children |
d98081713570
|
| branches/tags |
(none) |
| files |
|
Changes
--- 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)