Add implementation of EXIT for SCL.

lokedhs · Sep 4, 2012 · 4c0e767 · 4c0e767
1 parent 1e47e4e
commit 4c0e767
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/dev/scl.lisp b/dev/scl.lisp
@@ -7,4 +7,7 @@
   (error 'unsupported-function-error :function 'os-process-id))
 
 (defun %get-env-var (name)
-  (cdr (assoc name ext:*environment-list* :test #'string=))
+  (cdr (assoc name ext:*environment-list* :test #'string=))
+
+(defun %exit (code)
+  (ext:quit :status code))