mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
18 lines
690 B
Common Lisp
18 lines
690 B
Common Lisp
#+(or (not system-tlabs) (not sb-thread) interpreter)
|
|
(invoke-restart 'run-tests::skip-file)
|
|
|
|
;; Prevent the finalizer from performing background compilation
|
|
(sb-impl::finalizer-thread-stop)
|
|
|
|
(defstruct foo a b c d e f g)
|
|
|
|
(with-test (:name :fast-slot-map-fn-not-in-arena)
|
|
(let ((a (sb-vm:new-arena 1048576)))
|
|
(sb-vm:with-arena (a)
|
|
(let ((val (sb-pcl::structure-slot-value (make-foo :g "gee") 'g)))
|
|
(assert (string= val "gee"))))
|
|
(assert (= (length sb-c::*background-tasks*) 1))
|
|
(assert (heap-allocated-p sb-c::*background-tasks*))
|
|
(assert (sb-kernel:closurep (car sb-c::*background-tasks*)))
|
|
(assert (heap-allocated-p (car sb-c::*background-tasks*)))))
|