Skip to content

Commit

Permalink
Skip failing INLINE.
Browse files Browse the repository at this point in the history
Which isn't honored on ACL, so just ignore it.
Ferada committed Jan 6, 2015
1 parent 8d15969 commit eed3113
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions tests/functions.lisp
Original file line number Diff line number Diff line change
@@ -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,

0 comments on commit eed3113

Please sign in to comment.