# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1545232568 18000
# Node ID 6385b2a6b82a0db50f44e98894b099707bf85394
# Parent  a08b75bd86ad7d25c4b7501c8c270825496afc99
Fix exit code

diff -r a08b75bd86ad -r 6385b2a6b82a src/base.lisp
--- a/src/base.lisp	Tue Dec 18 21:30:00 2018 -0500
+++ b/src/base.lisp	Wed Dec 19 10:16:08 2018 -0500
@@ -449,7 +449,7 @@
   (multiple-value-bind (arguments options) (adopt:parse-options *ui*)
     (when (gethash 'help options)
       (adopt:print-usage *ui*)
-      (sb-ext:exit :code 0))
+      (adopt:exit 0))
     (when (gethash 'inform options)
       (print-version))
     (when-let ((rc (gethash 'rcfile options)))