mirror of
https://github.com/open-goal/jak-project
synced 2026-06-25 10:12:14 -04:00
water
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) |