From e498affb1f381d640d5b9704af0204f0da79145d Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 26 Jun 2011 20:40:22 +0300 Subject: [PATCH] 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 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4