(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
;; Interpreted functions
+#+sb-eval
(deftest function-type.8
(type-equal (function-type (interpret (lambda (x) (declare (fixnum x)) x)))
'(function (&rest t) *))
#+nil
(progn
-
+
(defstruct (struct (:predicate our-struct-p)
(:copier copy-our-struct))
(a 42 :type fixnum))