X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Falien.impure.lisp;h=aa14cf265b54e513175dae3e684a1886b7be69a3;hb=277ef97eeb9de2ad5982f44e5a34c0969e494bc0;hp=50297747d3028c094a5e93a2a0f41f31bb02f23f;hpb=273757631306c5d5c36f3aa7fed496a6d5c5f35e;p=sbcl.git

diff --git a/tests/alien.impure.lisp b/tests/alien.impure.lisp
index 5029774..aa14cf2 100644
--- a/tests/alien.impure.lisp
+++ b/tests/alien.impure.lisp
@@ -245,4 +245,11 @@
           (with-alien ((myin int (slot myst 'myint)))
             (assert (integerp myin))))))
 
+;;; void conflicted with derived type
+(declaim (inline bug-316075))
+(sb-alien:define-alien-routine bug-316075 void (result char :out))
+(with-test (:name bug-316075)
+  (handler-bind ((warning #'error))
+    (compile nil '(lambda () (multiple-value-list (bug-316075))))))
+
 ;;; success