Re: [Gcl-devel] Is GCL-TK broken ?

[Camm Maguire]

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.
> 
> -- 
>       Vadim V. Zhytnikov
> 
>        <address@hidden>
>       <address@hidden>
> 
> 
> 
> 
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/gcl-devel
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah