X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.impure.lisp;h=fa098af264129cab9fbc17b1d4ce356b3c3f3b58;hb=451878f56ecdd9cc0b617c0552edf2a2ff0624db;hp=9431e70a1e1e95cd2c4363b3036de201ec9d57c1;hpb=d01a6883a21ee073c1a00c401c12185dbd2a8133;p=sbcl.git

diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp
index 9431e70..fa098af 100644
--- a/tests/compiler.impure.lisp
+++ b/tests/compiler.impure.lisp
@@ -1511,4 +1511,10 @@
            (quux)))))
 (assert (equal '(1 2 3) (wpo-multiple-call-local)))
 
+;;; bug 417: toplevel NIL confusing source path logic
+(handler-case
+    (delete-file (compile-file "bug-417.lisp"))
+  (sb-ext:code-deletion-note (e)
+    (error e)))
+
 ;;; success