fix bogus test in arith.pure.lisp

[sbcl.git] / tests / arith.pure.lisp

diff --git a/tests/arith.pure.lisp b/tests/arith.pure.lisp
index 5a6ca2f..dde318b 100644 (file)
--- a/tests/arith.pure.lisp
+++ b/tests/arith.pure.lisp
@@ -399,7 +399,7 @@
                                                       (apply fast call-args)
                                                     (division-by-zero () :div0)))
                                      (slow-result (handler-case
-                                                      (apply fast call-args)
+                                                      (apply slow call-args)
                                                     (division-by-zero () :div0))))
                                 (if (eql fast-result slow-result)
                                     (print (list :ok `(,op ,@args) :=> fast-result))