Unstatic object_to_float, object_to_double - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

Unstatic object_to_float, object_to_doubleunlabeled-1.15.6.1.4

-rwxr-xr-x

1 files changed, 2 insertions, 2 deletions

diff --git a/gcl/o/cmpaux.c b/gcl/o/cmpaux.c
index 24121563c..0641536fc 100755
--- a/gcl/o/cmpaux.c
+++ b/gcl/o/cmpaux.c

@@ -199,7 +199,7 @@ object_to_int(object x)

return(i);

}

-static float

+float

object_to_float(object x)

{

float f=0.0;

@@ -222,7 +222,7 @@ object_to_float(object x)

return(f);

}

-static double

+double

object_to_double(object x)

{

double d=0.0;

generated by cgit v1.2.3 (git 2.39.1) at 2025年09月01日 23:50:09 +0000