(I didn't have convenient access to the Internet for almost a week, so

[sbcl.git] / tests / debug.impure.lisp

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index defd346..f7dfab9 100644 (file)
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -1,5 +1,5 @@
 ;;;; This file is for testing debugging functionality, using
-;;;; test machinery which might have side-effects (e.g. 
+;;;; test machinery which might have side effects (e.g. 
 ;;;; executing DEFUN).
 
 ;;;; This software is part of the SBCL system. See the README file for
@@ -57,3 +57,6 @@
   (assert (symbolp control-sym))
   (assert (eql &rest-sym '&rest))
   (assert (symbolp format-args-sym)))
+
+;;; success
+(quit :unix-status 104)