From eed3113a33deacf36471dc2051ccff3d41550901 Mon Sep 17 00:00:00 2001
From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Tue, 6 Jan 2015 20:17:19 +0000
Subject: [PATCH] Skip failing INLINE.

Which isn't honored on ACL, so just ignore it.
---
 tests/functions.lisp |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/functions.lisp b/tests/functions.lisp
index 507ae38..676cd84 100644
--- a/tests/functions.lisp
+++ b/tests/functions.lisp
@@ -18,9 +18,11 @@
 
 (def-test dflet.inline.works ()
   "If a function is declared INLINE (and that request is honored), DFLET
-won't work."
+won't work.  Not a failure, since we can't force INLINE."
   (dflet ((foo/inline () 42))
-    (is (eql 23 (foo/inline)))))
+    (if (eql 23 (foo/inline))
+        (pass "INLINE declaration honored, so DFLET fails")
+        (skip "INLINE declaration not honored, so DFLET works"))))
 
 (def-test dflet.notinline.works ()
   "If a function is declared INLINE, but NOTINLINE is used locally,
-- 
1.7.10.4