X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Ftest-driver.lisp;h=f40e99b5ca81b8172cf9b89e0f2a79ceb1bf2bcb;hb=2936871808ba75ff33a6c199c23985373e5735ac;hp=f1c896b1d50f934f758e171092e6401afc073e85;hpb=4e77726ecbe2bb33d3208610266db3b8c9cb2719;p=sbcl.git

diff --git a/contrib/sb-introspect/test-driver.lisp b/contrib/sb-introspect/test-driver.lisp
index f1c896b..f40e99b 100644
--- a/contrib/sb-introspect/test-driver.lisp
+++ b/contrib/sb-introspect/test-driver.lisp
@@ -284,6 +284,9 @@
     (tai 42 :immediate nil)
   t)
 
+;;; Skip the whole damn test on GENCGC PPC -- the combination is just
+;;; to flaky for this to make too much sense.
+#-(and ppc gencgc)
 (deftest allocation-information.4
     #+gencgc
     (tai #'cons :heap
@@ -413,6 +416,7 @@
 
 ;; Interpreted functions
 
+#+sb-eval
 (deftest function-type.8
     (type-equal (function-type (interpret (lambda (x) (declare (fixnum x)) x)))
                 '(function (&rest t) *))
@@ -450,7 +454,7 @@
 
 #+nil
 (progn
-  
+
   (defstruct (struct (:predicate our-struct-p)
                      (:copier copy-our-struct))
     (a 42 :type fixnum))