Permalink
Browse files

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

…code to comply with this.
  • Loading branch information...
lokedhs committed Sep 4, 2012
1 parent da7d45b commit f442762c483a28d4f230265b57a8c1cf61c89431
Showing with 1 addition and 3 deletions.
  1. +1 −3 dev/sbcl.lisp
View
@@ -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."))))))

0 comments on commit f442762

Please sign in to comment.