Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 4253134bdc
Fetching contributors…

Cannot retrieve contributors at this time

37 lines (26 sloc) 0.563 kb
(in-package #:vacietis.libc.math.h)
(in-readtable vacietis)
(define HUGE_VAL most-positive-double-float)
(defun atan2 (x y)
(atan x y))
(defun pow (x y)
(expt x y))
(defun log10 (x)
(log x 10))
(defun fabs (x)
(abs x))
(defun ceil (x)
(ceiling x))
(defun fmod (x y)
(mod x y))
(defun modf (x ptr)
(multiple-value-bind (whole part)
(fround x)
(setf (deref* ptr) whole)
(defun ldexp (x n)
(* x (expt 2 n)))
(defun frexp (x nptr)
(let ((n (ceiling (log (abs x) 2))))
(setf (deref* nptr) n)
(/ x (expt 2 n))))
Jump to Line
Something went wrong with that request. Please try again.