[Sbcl-commits] master: Quieten some tests

[Douglas K. <sn...@us...>]

The branch "master" has been updated in SBCL:
       via  0546c2798aa5d0b77414bc43b993e2974f1f1802 (commit)
      from  202e00628820daf9a6d141daea222273cb252f6d (commit)

- Log -----------------------------------------------------------------
commit 0546c2798aa5d0b77414bc43b993e2974f1f1802
Author: Douglas Katzman <do...@go...>
Date:   Tue Mar 21 16:22:42 2017 -0400

    Quieten some tests
---
 src/runtime/forwarding-ptr.h |  2 +-
 tests/arith.pure.lisp        | 13 ++++++++-----
 tests/type.pure.lisp         |  2 +-
 3 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/src/runtime/forwarding-ptr.h b/src/runtime/forwarding-ptr.h
index fd5c518..72ea194 100644
--- a/src/runtime/forwarding-ptr.h
+++ b/src/runtime/forwarding-ptr.h
@@ -14,7 +14,7 @@ forwarding_pointer_p(lispobj *pointer) {
 #ifdef LISP_FEATURE_GENCGC
     return (first_word == 0x01);
 #else
-    // FIXE: change 5c0d71f92c371769f911e6a2ac60b2dd9fbde349 added
+    // FIXME: change 5c0d71f92c371769f911e6a2ac60b2dd9fbde349 added
     // an extra test here, which theoretically slowed things down.
     // This was in response to 044e22192c25578efceedba042554dc9a96124c6
     // which caused cheneygc to break. But now the latter revision has been
diff --git a/tests/arith.pure.lisp b/tests/arith.pure.lisp
index 96e2540..fa5cd2d 100644
--- a/tests/arith.pure.lisp
+++ b/tests/arith.pure.lisp
@@ -470,9 +470,10 @@
                                      (slow-result (handler-case
                                                       (apply slow call-args)
                                                     (division-by-zero () :div0))))
-                                (if (eql fast-result slow-result)
-                                    (print (list :ok `(,op ,@args) :=> fast-result))
-                                    (error "oops: ~S, ~S" args call-args)))))))))))
+                                (if (not (eql fast-result slow-result))
+                                    (error "oops: ~S, ~S" args call-args)
+                                    #+nil (print (list :ok `(,op ,@args) :=> fast-result))
+                                    ))))))))))
 
 ;;; (TRUNCATE <unsigned-word> <constant unsigned-word>) is optimized
 ;;; to use multiplication instead of division. This propagates to FLOOR,
@@ -560,9 +561,9 @@
         results)
     (dolist (base (cons bignum numbers))
       (dolist (power numbers)
-        (format t "(expt ~s ~s) => " base power)
+        #+nil (format t "(expt ~s ~s) => " base power)
         (let ((result (expt base power)))
-          (format t "~s~%" result)
+          #+nil (format t "~s~%" result)
           (push result results))))
     (assert (every #'numberp results))))
 
@@ -583,6 +584,8 @@
              (and (nearly-equal-p (realpart x) (realpart y))
                   (nearly-equal-p (imagpart x) (imagpart y))))
            (print-result (msg base power got expected)
+             (declare (ignorable msg base power got expected))
+             #+nil
              (format t "~a (expt ~s ~s)~%got      ~s~%expected ~s~%"
                      msg base power got expected)))
     (let ((n-broken 0))
diff --git a/tests/type.pure.lisp b/tests/type.pure.lisp
index 217dba9..4608458 100644
--- a/tests/type.pure.lisp
+++ b/tests/type.pure.lisp
@@ -139,7 +139,7 @@
                         floating-point-underflow
                         simple-bit-vector)))
   (dolist (type standard-types)
-    (format t "~&~S~%" type)
+    #+nil (format t "~&~S~%" type)
     (assert (not (sb-kernel:unknown-type-p (sb-kernel:specifier-type type))))
     (assert (atom (sb-kernel:type-specifier (sb-kernel:specifier-type type))))))
 

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


hooks/post-receive
-- 
SBCL