From 098f3c14711de24cfeb3ce6a74bca320fd8e2aa1 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Tue, 30 Sep 2014 21:12:37 -0700
Subject: [PATCH] Add alien interface to scalbn.

---
 src/code/irrat.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index c07e9793e..8ddd41381 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -91,6 +91,12 @@
 (def-math-rtn ("fdlibm_log1p" %log1p) 1)
 (def-math-rtn ("fdlibm_expm1" %expm1) 1)
 
+(declaim (inline %scalbn))
+(export '%scalbn)
+(alien:def-alien-routine ("fdlibm_scalbn" %scalbn) c-call:double
+  (x double-float)
+  (n c-call:int))
+
 ;; These are needed for use by byte-compiled files.  But don't use
 ;; these with sse2 since we don't support using the x87 instructions
 ;; here.
-- 
GitLab