mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 11:26:18 -04:00
c7c342ce7e
* add tests for various xmms * use unaligned stores and loads to back up and restore xmm128s and also fix argument spilling bug * add deftype * add deref and fix some method _type_ things
12 lines
229 B
Common Lisp
12 lines
229 B
Common Lisp
(defun pow-test ((base float) (exponent integer))
|
|
(let ((result base))
|
|
(while (> exponent 1)
|
|
(*! result base)
|
|
(-! exponent 1)
|
|
)
|
|
result
|
|
)
|
|
)
|
|
|
|
(format #t "~,,0f~%" (pow-test 2.0 8))
|
|
0 |