X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstep.impure.lisp;h=9b48dc2214b7c044a3a20409cbaf84cc7493a1b2;hb=36717964ebcff8353035062789c08f223feccf1a;hp=0f5e874bef50f82c774de8a6474ad0f51409527a;hpb=d95f1e6476aa63695e018a7769a1ae9e002fca36;p=sbcl.git diff --git a/tests/step.impure.lisp b/tests/step.impure.lisp index 0f5e874..9b48dc2 100644 --- a/tests/step.impure.lisp +++ b/tests/step.impure.lisp @@ -15,7 +15,7 @@ ;; No stepper support on some platforms. #-(or x86 x86-64 ppc sparc mips) -(sb-ext:quit :unix-status 104) +(sb-ext:exit :code 104) (defun fib (x) (declare (optimize debug)) @@ -271,8 +271,7 @@ (handler-bind ((step-condition #'sb-impl::invoke-stepper)) (test-step-out))) -(with-test (:name :step-start-from-break - :fails-on :mips) +(with-test (:name :step-start-from-break) (handler-bind ((step-condition #'sb-impl::invoke-stepper)) (test-step-start-from-break)))