mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
27 lines
456 B
Plaintext
27 lines
456 B
Plaintext
|
;-*-Scheme-*-
|
||
|
|
|
||
|
|
(test-setup 20 #f)
|
||
|
|
|
||
|
|
(defglobalconstant constant 3)
|
||
|
|
|
||
|
|
(defun inline-test-3 ((x integer))
|
||
|
|
(declare (allow-inline))
|
||
|
|
(* constant x)
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
(let ((old-value (inline-test-3 2))) ;; 6
|
||
|
|
(with-inline #t
|
||
|
|
(defglobalconstant constant 4)
|
||
|
|
(let ((second-value (inline-test-3 2))) ;; 8
|
||
|
|
(with-inline #f
|
||
|
|
(+ old-value second-value (inline-test-3 2)) ;; 6
|
||
|
|
;;(inline-test-3 2)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|
||
|
|
;; 6 good
|
||
|
|
;; 8 good
|