Permalink
Browse files

Add implementation of EXIT for SCL.

  • Loading branch information...
1 parent 1e47e4e commit 4c0e7674bdf65154fe26f44e87fbd21c459b3b50 @lokedhs committed Sep 4, 2012
Showing with 4 additions and 1 deletion.
  1. +4 −1 dev/scl.lisp
View
@@ -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))

0 comments on commit 4c0e767

Please sign in to comment.