X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Falien.impure.lisp;h=4619da3f286a14579a40627476963268105a7c70;hb=1dc3a468ba32755c51747d6e85ed32d989f2dd49;hp=6c6b002db65527a7ec5e0fc570a62062edb37187;hpb=09120f07344932375511dd6239ea809a6e444554;p=sbcl.git

diff --git a/tests/alien.impure.lisp b/tests/alien.impure.lisp
index 6c6b002..4619da3 100644
--- a/tests/alien.impure.lisp
+++ b/tests/alien.impure.lisp
@@ -163,4 +163,8 @@
                        (sb-alien:deref (sb-alien:slot a1 'u) 8)
                        (sb-alien:deref (sb-alien:slot a1 'u) 9)))))
 
+(handler-bind ((compiler-note (lambda (c)
+                                (error "bad note! ~A" c))))
+  (funcall (compile nil '(lambda () (sb-alien:make-alien sb-alien:int)))))
+
 ;;; success