common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Move a slow test

Browse source
This commit is contained in:
Douglas Katzman 2022-04-03 22:08:25 -04:00
parent 6f560815ed
commit 6b98706d72
2 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
tests/compiler-2.pure.lisp
View file

@ -3050,23 +3050,6 @@
:allow-failure t))))
(declaim (maybe-inline inline-recursive))
(defun inline-recursive (x)
(declare (muffle-conditions compiler-note
style-warning))
(if (zerop x)
x
(inline-recursive (1- x))))
(declaim (inline inline-recursive))
(with-test (:name :reanalyze-functionals-when-inlining)
(checked-compile-and-assert
()
`(lambda (x)
(inline-recursive x)
(inline-recursive x))
((5) 0)))
(with-test (:name :split-let-unused-vars)
(checked-compile-and-assert
()

17
tests/compiler-slow.pure.lisp
View file

@ -154,3 +154,20 @@
(values-list list)))
(('(1 2)) '(1))
(('(1)) (condition 'type-error))))
(declaim (maybe-inline inline-recursive))
(defun inline-recursive (x)
(declare (muffle-conditions compiler-note
style-warning))
(if (zerop x)
x
(inline-recursive (1- x))))
(declaim (inline inline-recursive))
(with-test (:name :reanalyze-functionals-when-inlining)
(checked-compile-and-assert
()
`(lambda (x)
(inline-recursive x)
(inline-recursive x))
((5) 0)))