X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Falien.impure.lisp;fp=tests%2Falien.impure.lisp;h=8eda29a40eabd1af8702cf9501bb4a84e4e19bc8;hb=367316f5f21281204393853910848fea7fb9a6ab;hp=d1ee3e3adf0c3bcf1f8a32062cdbf0f5a20896b1;hpb=b68b6c67c462e90775118cd66a6fb8b55afb2d8c;p=sbcl.git

diff --git a/tests/alien.impure.lisp b/tests/alien.impure.lisp
index d1ee3e3..8eda29a 100644
--- a/tests/alien.impure.lisp
+++ b/tests/alien.impure.lisp
@@ -203,4 +203,11 @@
          (error ()
            :ok)))))
 
+;;; Unused local alien caused a compiler error
+(with-test (:name unused-local-alien)
+  (let ((fun `(lambda ()
+                (sb-alien:with-alien ((alien1923 (array (sb-alien:unsigned 8) 72)))
+                  (values)))))
+    (assert (not (funcall (compile nil fun))))))
+
 ;;; success