Bug#385713: gcl: writing to network sockets does not work
Bernhard R. Link <
brlink@...>
2006-09-02 21:52:11 GMT
Package: gcl
Version: 2.6.7-20
Severity: normal
When doing (with or without GCL_ANSI=t)
gcl -load test.lisp
and then (test) a connection is opened but nothing
is sent over it.
------------------test.lisp-------------------------
(defun test ()
(let* ((sock (si::socket 9999 :host "localhost")))
(format *error-output* "stderr=~a~%" 5)
(format sock "sock=~a~%" 5)
(force-output sock)
))
----------------------------------------------------
the following is a interval of output from strace, supporting netcat
that nothing is sent:
socket(PF_INET, SOCK_STREAM, IPPROTO_IP) = 3
fcntl64(3, F_SETFD, FD_CLOEXEC) = 0
connect(3, {sa_family=AF_INET, sin_port=htons(9999), sin_addr=inet_addr("127.0.0.1")}, 16) = 0
ioctl(1, SNDCTL_TMR_TIMEBASE or TCGETS, {B38400 opost isig icanon echo ...}) = 0
ioctl(1, SNDCTL_TMR_TIMEBASE or TCGETS, {B38400 opost isig icanon echo ...}) = 0
ioctl(1, SNDCTL_TMR_TIMEBASE or TCGETS, {B38400 opost isig icanon echo ...}) = 0
ioctl(1, SNDCTL_TMR_TIMEBASE or TCGETS, {B38400 opost isig icanon echo ...}) = 0
ioctl(1, SNDCTL_TMR_TIMEBASE or TCGETS, {B38400 opost isig icanon echo ...}) = 0
ioctl(1, SNDCTL_TMR_TIMEBASE or TCGETS, {B38400 opost isig icanon echo ...}) = 0
(Continue reading)