The old-style QUIT of SBCL actually supports exit status. Update the …

…code to comply with this.
hraban · Sep 4, 2012 · f442762 · f442762
1 parent da7d45b
commit f442762
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/dev/sbcl.lisp b/dev/sbcl.lisp
@@ -97,7 +97,5 @@
         (funcall exit-sym :code code)
         (let ((quit-sym (symbol-if-external "QUIT" "SB-EXT")))
           (if quit-sym
-              (if (zerop code)
-                  (funcall quit-sym :recklessly-p t)
-                  (error "This version of SBCL does not support exiting with a code."))
+              (funcall quit-sym :unix-status code :recklessly-p t)
               (error "SBCL version without EXIT or QUIT."))))))