- #+(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)
- #+(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))
+ ;; FIXME: This is the canonical GENCGC result. On PPC we sometimes get
+ ;; :LARGE T, which doesn't seem right -- but ignore that for now.
+ '(:space :dynamic :generation 6 :write-protected t :boxed t :pinned nil :large nil)
+ :ignore #+ppc '(:large) #-ppc nil)
+ #-gencgc
+ (tai :cons :heap
+ ;; FIXME: Figure out what's the right cheney-result. SPARC at least
+ ;; has exhibited both :READ-ONLY and :DYNAMIC, which seems wrong.
+ '()
+ :ignore '(:space))