b0cb724b7831

Implement exit for CCL
[view raw] [browse files]
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)