From eed3113a33deacf36471dc2051ccff3d41550901 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm 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