Files
jak-project/test/goalc/source_templates/float/float-function.static.gc
T
2020-10-08 00:05:01 -04:00

8 lines
158 B
Common Lisp

(defun float-testing-function ((x float) (y float))
(* x y (* x x))
)
(let ((x (float-testing-function (* 1.2 1.2) 3.4)))
(format #t "~,,3f~%" x)
)
0