jak-project/goal_src/test/test-inline-call.gc
2020-09-13 10:44:12 -04:00

7 lines
190 B
Common Lisp

(defun inline-test-function-2 ((x integer))
;; inline this function by default.
(declare (allow-inline))
(* 4 x)
)
(+ (inline-test-function-2 8) ((inline inline-test-function-2) 3))