mirror of
https://github.com/open-goal/jak-project
synced 2026-07-05 21:49:28 -04:00
water
15 lines
268 B
Common Lisp
15 lines
268 B
Common Lisp
;-*-Scheme-*-
|
|
|
|
|
|
(test-setup 32 #f)
|
|
|
|
;; test calling an inline function. doesn't actually verify the call is inline.
|
|
|
|
(defun inline-test-function-1 ((x integer))
|
|
;; inline this function by default.
|
|
(declare (inline))
|
|
(* 4 x)
|
|
)
|
|
|
|
(inline-test-function-1 8)
|