+ (sb-ext:exit :code $EXIT_LISP_WIN))
+EOF
+ check_status_maybe_lose fail-compile $?
+}
+
+expect_aborted_compile ()
+{
+ f="$1"
+ run_sbcl <<EOF
+ (let* ((lisp "$f")
+ (fasl (compile-file-pathname lisp)))
+ (multiple-value-bind (pathname warnings-p failure-p)
+ (compile-file "$f" :print t)
+ (assert (not pathname))
+ (assert failure-p)
+ (assert warnings-p)
+ (assert (not (probe-file fasl))))
+ (sb-ext:exit :code $EXIT_LISP_WIN))