X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fload.pure.lisp;h=eed5f45bf8f9fe1c24dc609385c84d06be5510ac;hb=1cba0af01f5107ab384d0d8b94b1f6330b3d0ef4;hp=09ef251a1f0eb7b0c6c1c9447d83c02ab5255e3b;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/load.pure.lisp b/tests/load.pure.lisp
index 09ef251..eed5f45 100644
--- a/tests/load.pure.lisp
+++ b/tests/load.pure.lisp
@@ -20,3 +20,8 @@
 (load "i-am-not.lisp" :if-does-not-exist nil)
 (load "i-am-not.fasl" :if-does-not-exist nil)
 (load "i-am-not.misc-garbage" :if-does-not-exist nil)
+
+;;; In 1.0.17, LOAD didn't error when the file didn't exist and
+;;; IF-DOES-NOT-EXIST was true.
+(assert (typep (nth-value 1 (ignore-errors (load "i-am-not"))) 'file-error))
+(assert (typep (nth-value 1 (ignore-errors (load "i-am-not" :if-does-not-exist t))) 'file-error))