From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sun, 26 Jun 2011 17:40:22 +0000 (+0300)
Subject: fix bogus test in arith.pure.lisp
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e498affb1f381d640d5b9704af0204f0da79145d;p=sbcl.git

fix bogus test in arith.pure.lisp

  Didn't actually call the slow-path at all.  Thanks to Lutz Euler for the
  heads-up.
---

diff --git a/tests/arith.pure.lisp b/tests/arith.pure.lisp
index 5a6ca2f..dde318b 100644
--- 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))