clisp-scalb.patch

   1 Index: linux.lisp
   2 ===================================================================
   3 RCS file: /cvsroot/clisp/clisp/modules/bindings/glibc/linux.lisp,v
   4 retrieving revision 1.4
   5 retrieving revision 1.5
   6 diff -u -w -b -u -b -w -i -B -r1.4 -r1.5
   7 --- linux.lisp  7 Aug 2003 20:23:56 -0000       1.4
   8 +++ linux.lisp  11 Sep 2003 17:11:41 -0000      1.5
   9 @@ -873,8 +873,8 @@
  10  ;    (:arguments (x double-float) (iptr (c-ptr double-float) :out))
  11  ;  (:return-type double-float))
  12  (def-call-out rint (:arguments (x double-float)) (:return-type double-float))
  13 -(def-call-out scalb (:arguments (x double-float) (n double-float))
  14 -  (:return-type double-float))
  15 +;(def-call-out scalb (:arguments (x double-float) (n double-float))
  16 +;  (:return-type double-float))
  17  (def-call-out nextafter (:arguments (x double-float) (y double-float))
  18    (:return-type double-float))
  19  (def-call-out remainder (:arguments (x double-float) (y double-float))
  20 @@ -964,8 +964,8 @@
  21  ;    (:arguments (x single-float) (iptr (c-ptr single-float) :out))
  22  ;  (:return-type single-float))
  23  (def-call-out rintf (:arguments (x single-float)) (:return-type single-float))
  24 -(def-call-out scalbf (:arguments (x single-float) (n single-float))
  25 -  (:return-type single-float))
  26 +;(def-call-out scalbf (:arguments (x single-float) (n single-float))
  27 +;  (:return-type single-float))
  28  (def-call-out nextafterf (:arguments (x single-float) (y single-float))
  29    (:return-type single-float))
  30  (def-call-out remainderf (:arguments (x single-float) (y single-float))