mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 11:26:18 -04:00
cee6c21603
* started adding simple functions in gcommon * more tests and features * more tests, debug windows * debug prints for windows * back up some regs for windows * remove debugging prints
14 lines
256 B
Common Lisp
14 lines
256 B
Common Lisp
(defun test-function-3 ((x int))
|
|
(while (> x 20)
|
|
(set! x (- x 1))
|
|
;;(format #t " x is now ~d~%" x)
|
|
(if (> 30 x)
|
|
(return-from #f 77)
|
|
)
|
|
)
|
|
987
|
|
)
|
|
|
|
(let ((result (test-function-3 64)))
|
|
result
|
|
) |