;;;; more information.
(when (eq sb-ext:*evaluator-mode* :interpret)
- (sb-ext:quit :unix-status 104))
+ (sb-ext:exit :code 104))
(load "compiler-test-util.lisp")
(use-package :ctu)
(assert-no-consing (vector-on-stack :x :y)))
(with-test (:name (:no-consing :specialized-dx-vectors)
- :fails-on '(and :sunos :x86)
+ :fails-on :x86
:skipped-on `(not (and :stack-allocatable-vectors
:c-stack-is-control-stack)))
(assert-no-consing (make-array-on-stack-6))