X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos-interrupts.impure.lisp;h=e3a100e6bff14c5d562a3c38dea67de1c505d3c5;hb=b14aefb22fd710673b1a1005add3c0425713d2a0;hp=8935ab749b377b0929725f4e243f87b0a857ff2c;hpb=5220c88e72ab4e16e7f9250a33e0ce35e41defbb;p=sbcl.git diff --git a/tests/clos-interrupts.impure.lisp b/tests/clos-interrupts.impure.lisp index 8935ab7..e3a100e 100644 --- a/tests/clos-interrupts.impure.lisp +++ b/tests/clos-interrupts.impure.lisp @@ -77,7 +77,8 @@ (defmethod compute-test ((x symbol) (y symbol)) 'symbol) -(compute-test 1 2) +(test-util:with-test (:name :compute-test :fails-on :win32) + (compute-test 1 2) -;;; Check that we actually interrupted something. -(assert (equal (list #'compute-test) *interrupted-gfs*)) + ;; Check that we actually interrupted something. + (assert (equal (list #'compute-test) *interrupted-gfs*)))