+ (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+EOF
+ check_status_maybe_lose fail-compile $?
+}
+
+expect_aborted_compile ()
+{
+ run_sbcl <<EOF
+ (let* ((lisp "$1")
+ (fasl (compile-file-pathname lisp)))
+ (multiple-value-bind (pathname warnings-p failure-p)
+ (compile-file "$1" :print t)
+ (assert (not pathname))
+ (assert failure-p)
+ (assert warnings-p)
+ (assert (not (probe-file fasl))))
+ (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+EOF
+ check_status_maybe_lose abort-compile $?
+}
+
+fail_on_condition_during_compile ()
+{
+ run_sbcl <<EOF
+ (handler-bind (($1 #'error))
+ (compile-file "$2")
+ (sb-ext:quit :unix-status $EXIT_LISP_WIN))