X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.test.sh;h=f2921ef21be2a00031e44155de4e35faf7874366;hb=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;hp=447505c8b319ca5767556683eb10206c380a84a3;hpb=67a805dee41b93fa03c6e72f3d1ce3078dfe88eb;p=sbcl.git

diff --git a/tests/compiler.test.sh b/tests/compiler.test.sh
index 447505c..f2921ef 100644
--- a/tests/compiler.test.sh
+++ b/tests/compiler.test.sh
@@ -504,5 +504,14 @@ cat > $tmpfilename <<EOF
 EOF
 expect_clean_compile $tmpfilename
 
+cat > $tmpfilename <<EOF
+(in-package :cl-user)
+
+(declaim (notinline foo))
+(let ((i 0)) (defun foo (x) (incf i x)))
+(defun bar (x) (foo x))
+EOF
+fail_on_condition_during_compile sb-ext:compiler-note $tmpfilename
+
 # success
 exit $EXIT_TEST_WIN