Hi Vadim! Could you please try the patch below? How are you testing
this?
Take care,
=============================================================================
RCS file: /cvsroot/gcl/gcl/o/sockets.c,v
retrieving revision 1.8
diff -u -r1.8 sockets.c
--- sockets.c 1 Mar 2003 22:37:37 -0000 1.8
+++ sockets.c 10 Jul 2003 23:25:47 -0000
@@ -101,7 +101,7 @@
#define BIND_LAST_ADDRESS 65534
static unsigned int iLastAddressUsed = BIND_INITIAL_ADDRESS;
-DEFUN_NEW("OPEN-NAMED-SOCKET",object,fSopen_named_socket,SI,1,1,NONE,OI,OO,OO,OO,(fixnum port),
+DEFUN_NEW("OPEN-NAMED-SOCKET",object,fSopen_named_socket,SI,2,2,NONE,OI,OO,OO,OO,(fixnum
port),
"Open a socket on PORT and return (cons fd portname) where file \
descriptor is a small fixnum which is the write file descriptor for \
the socket. If PORT is zero do automatic allocation of port")
=============================================================================
"Vadim V. Zhytnikov" <address@hidden> writes:
I just tried a simple example from
the very beginning of gcl-tk.info:
>(in-package "tk")
>(tkcoonect)
It fails with message that si::open-named-socked
must have less than two arguments. Indeed,
in /gcl-tk/tkl.lisp this function is invoked as
(si::open-named-socket 0 nil) while in socket.c
it is defined with 1 argument.
Anyone tried gcl-tk? Any success?
It seems that at present TK package is broken.