X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Ftest-driver.lisp;h=c38d9f576a8dc62a22f700de68a2e9e6c7c1f24e;hb=aa8cdb795d6bb551aaecb6db38d5ef6571c698ed;hp=8bb29db7918952f9b22a1b25c180f64f109689bb;hpb=556fa08244211057b003401daf76edf0c8754232;p=sbcl.git

diff --git a/contrib/sb-introspect/test-driver.lisp b/contrib/sb-introspect/test-driver.lisp
index 8bb29db..c38d9f5 100644
--- a/contrib/sb-introspect/test-driver.lisp
+++ b/contrib/sb-introspect/test-driver.lisp
@@ -157,10 +157,21 @@
 (tai t :heap '(:space :static))
 (tai 42 :immediate nil)
 (tai #'cons :heap
-     #+gencgc
+     #+(and (not ppc) gencgc)
+     ;; FIXME: This is the canonical GENCGC result, the one below for PPC is
+     ;; what we get there, but :LARGE T doesn't seem right. Figure out what's
+     ;; going on.
      '(:space :dynamic :generation 6 :write-protected t :pinned nil :large nil)
-     #-gencgc
+     #+(and ppc gencgc)
+     '(:space :dynamic :generation 6 :write-protected t :pinned nil :large t)
+     ;; FIXME: Figure out what's the right cheney-result, and which platforms
+     ;; return something else. The SPARC version here is what we get there,
+     ;; but quite possibly that is the result on all non-GENCGC platforms.
+     #+(and sparc (not gencgc))
+     '(:space :read-only)
+     #+(and (not sparc) (not gencgc))
      '(:space :dynamic))
+#+sb-thread
 (let ((x (list 1 2 3)))
   (declare (dynamic-extent x))
   (tai x :stack sb-thread:*current-thread*))