X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finit.test.sh;h=8f5f7351720ade813c6284a2445f69164847703b;hb=22593170e6f2d5204dd49e876cca93a0e033c02a;hp=a545d55ef50cd93cebdbd742062de0a9cf143015;hpb=9fb454f1a8211073b0e8446107e5abcba9ad2049;p=sbcl.git

diff --git a/tests/init.test.sh b/tests/init.test.sh
index a545d55..8f5f735 100644
--- a/tests/init.test.sh
+++ b/tests/init.test.sh
@@ -25,6 +25,10 @@ $SBCL <<EOF
         sb-impl::*sysinit-pathname-function* 'custom-sysinit-pathname)
   (save-lisp-and-die "$tmpcore")
 EOF
+if [ $? != 0 ]; then
+    echo "failure saving core"
+    exit 1
+fi
 $SBCL_ALLOWING_CORE --core "$tmpcore" --disable-debugger <<EOF
   (userinit-quit (sysinit-21))
 EOF