Test for compiler problems with LABELS and INLINE declaration

From <#591>.

Author: easye

t/compiler-inline.lisp

@@ -0,0 +1,21 @@
+;;;; <https://github.com/armedbear/abcl/issues/591> 
+(unless (ignore-errors (asdf:load-system :fset))
+  (ql:quickload :fset))
+
+(in-package :fset-user)
+(defun foo (x)
+  (labels ((bar (x)
+             (cond ((null x) nil)
+                   ((eq (car x) '&rest) (tail (cadr x)))
+                   (t (cons (car x) (bar (cdr x))))))
+           (tail (x)
+             (list 'local-tail x)))
+    (bar x)))
+(compile 'foo)
+
+(prove:plan 1)
+(prove:is
+    (foo '(a &rest b))
+    '(a local-tail b))
+(prove:finalize)
+