mirror of
https://github.com/open-goal/jak-project
synced 2026-08-08 02:31:30 -04:00
water111
27f0a7ca44
* refactor tests and analysis passes * identity test working * combine test categories with only a few cases * more fixes
11 lines
245 B
Common Lisp
11 lines
245 B
Common Lisp
|
|
; this is testing that return-from's work correctly inside of inlined functions.
|
|
(defun inline-with-block-1 ()
|
|
(declare (inline))
|
|
(if (= 123 (block my-block 1 (return-from my-block 123) 2))
|
|
1
|
|
0
|
|
)
|
|
)
|
|
|
|
(inline-with-block-1) |