[Axiom-developer] latest GCL problem

[root]

Camm,

I've been trying to build Axiom with the latest gcl-2.6.8pre checkout.

It fails when trying to compile the file in 
  src/interp/sockio.lisp.pamphlet

specifically it fails with:

========================================================================
118 making /tmp/axiom49/int/interp/sockio.lisp from 
/tmp/axiom49/src/interp/sockio.lisp.pamphlet
117 making /tmp/axiom49/obj/linux/interp/sockio.o from 
/tmp/axiom49/int/interp/sockio.lisp

>
Compiling /tmp/axiom49/int/interp/sockio.lisp.
End of Pass 1.  
End of Pass 2.  
/tmp/axiom49/obj/linux/interp/sockio.c:5139: conflicting types for 
`sock_get_float'
/tmp/axiom49/obj/linux/interp/sockio.h:46: previous declaration of 
`sock_get_float'

Error: (SYSTEM "gcc -c -I/usr/X11R6/include -Wall -DVOL=volatile -fsigned-char 
-pipe  -I/tmp/axiom49/lsp/gcl-2.6.8pre2/unixport/../h  -O3 -fomit-frame-pointer 
-c \"/tmp/axiom49/obj/linux/interp/sockio.c\" -o 
\"/tmp/axiom49/obj/linux/interp/sockio.o\" -w") returned a non-zero value 0.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by UNLESS.
Broken at APPLY.  Type :H for Help.
BOOT>>make[3]: *** [/tmp/axiom49/obj/linux/interp/sockio.o] Error 255
make[3]: Leaving directory `/tmp/axiom49/src/interp'
make[2]: *** [interpdir] Error 2
make[2]: Leaving directory `/tmp/axiom49/src'
make[1]: *** [srcdir] Error 2
make[1]: Leaving directory `/tmp/axiom49'
make: *** [all] Error 2
========================================================================


which is generated from the lines:

========================================================================
#+KCL
(progn
  (clines "extern double plus_infinity(), minus_infinity(), NANQ();")
  (clines "extern double sock_get_float();")
  (defentry open_server (string) (int "open_server"))
  (defentry sock_get_int (int) (int "sock_get_int"))
  (defentry sock_send_int (int int) (int "sock_send_int"))
  (defentry sock_get_string_buf (int string int) (int "sock_get_string_buf"))
  (defentry sock_send_string_len (int string int) (int "sock_send_string_len"))
  (defentry sock_get_float (int) (float "sock_get_float"))
  (defentry sock_send_float (int float) (int "sock_send_float"))
  (defentry sock_send_wakeup (int int) (int "sock_send_wakeup"))
  (defentry server_switch () (int "server_switch"))
  (defentry flush_stdout () (int "flush_stdout"))
  (defentry sock_send_signal (int int) (int "sock_send_signal"))
  (defentry print_line (string) (int "print_line"))
  (defentry plus_infinity () (double "plus_infinity"))
  (defentry minus_infinity () (double "minus_infinity"))
  (defentry NANQ () (double "NANQ"))
  )

========================================================================

which generated the C code that looks like


========================================================================


.....[snip]....

extern double sock_get_float();

.....[snip]....

/*      function definition for SOCK_GET_FLOAT  */

static void L6()
{       object *old_base=vs_base;
        float x;
        x=
        sock_get_float(
        object_to_int(vs_base[0]));
        vs_top=(vs_base=old_base)+1;
        vs_base[0]=make_shortfloat(x);
}


========================================================================

This code used to compile. Any guesses?

Tim