[Sbcl-commits] master: fix bogus test in arith.pure.lisp

[Nikodemus S. <de...@us...>]

The branch "master" has been updated in SBCL:
       via  e498affb1f381d640d5b9704af0204f0da79145d (commit)
      from  a3c77b1a48ba90df15e66da44331342ca7657602 (commit)

- Log -----------------------------------------------------------------
commit e498affb1f381d640d5b9704af0204f0da79145d
Author: Nikodemus Siivola <nik...@ra...>
Date:   Sun Jun 26 20:40:22 2011 +0300

    fix bogus test in arith.pure.lisp
    
      Didn't actually call the slow-path at all.  Thanks to Lutz Euler for the
      heads-up.
---
 tests/arith.pure.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

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))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL