# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1545628766 18000
# Node ID b0cb724b7831fdc0c68d3845c49c71ff7eadde58
# Parent  a26990c05739c899aa4fd3927ee319b443624a37
Implement exit for CCL

diff -r a26990c05739 -r b0cb724b7831 src/main.lisp
--- 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)