Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Add implementation of EXIT for SCL.

  • Loading branch information...
commit 4c0e7674bdf65154fe26f44e87fbd21c459b3b50 1 parent 1e47e4e
Elias Mårtenson authored

Showing 1 changed file with 4 additions and 1 deletion. Show diff stats Hide diff stats

  1. +4 1 dev/scl.lisp
5 dev/scl.lisp
@@ -7,4 +7,7 @@
7 7 (error 'unsupported-function-error :function 'os-process-id))
8 8
9 9 (defun %get-env-var (name)
10   - (cdr (assoc name ext:*environment-list* :test #'string=))
  10 + (cdr (assoc name ext:*environment-list* :test #'string=))
  11 +
  12 +(defun %exit (code)
  13 + (ext:quit :status code))

0 comments on commit 4c0e767

Please sign in to comment.
Something went wrong with that request. Please try again.