b0cb724b7831
Implement exit for CCL
| author | Steve Losh <steve@stevelosh.com> |
|---|---|
| date | Mon, 24 Dec 2018 00:19:26 -0500 |
| parents | a26990c05739 |
| children | 3487644c33e9 |
| branches/tags | (none) |
| files | src/main.lisp |
Changes
--- a/src/main.lisp Sun Dec 23 23:36:35 2018 -0500 +++ b/src/main.lisp Mon Dec 24 00:19:26 2018 -0500 @@ -68,7 +68,8 @@ (defun exit (&optional (code 0)) #+sbcl (sb-ext:exit :code code) - #-(or sbcl) (error "EXIT is not supported on this implementation.")) + #+ccl (ccl:quit code) + #-(or sbcl ccl) (error "EXIT is not supported on this implementation.")) (defun funcall% (value function)