[ clisp-Bugs-1404418 ] socket-stream-local doesn't work

[SourceForge.net <no...@so...>]

Bugs item #1404418, was opened at 2006-01-12 22:09
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1404418&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: lisp error
>Status: Closed
>Resolution: Fixed
Priority: 5
Submitted By: Klaus Weidner (kweidner)
Assigned to: Sam Steingold (sds)
Summary: socket-stream-local doesn't work

Initial Comment:
Version: clisp 2.36 (Debian package on i386)

Description: the function SOCKET-STREAM-LOCAL fails
with an error message:

*** - SOCKET-STREAM-LOCAL: argument #<SYSTEM-FUNCTION
SOCKET-STREAM-LOCAL> is not a SOCKET-STREAM

How to reproduce:

- paste the simple socket REPL example from
http://clisp.cons.org/impnotes/socket.html into a clisp
session

- connect to the port using telnet

% clisp -q -norc                                      
                                                      
           
[1]> (LET ((server (SOCKET:SOCKET-SERVER)))
  (FORMAT t "~&Waiting for a connection on ~S:~D~%"
          (SOCKET:SOCKET-SERVER-HOST server)
(SOCKET:SOCKET-SERVER-PORT server))
  (UNWIND-PROTECT
      ;; infinite loop, terminate with Control-C
      (LOOP (WITH-OPEN-STREAM (socket
(SOCKET:SOCKET-ACCEPT server))
              (MULTIPLE-VALUE-BIND (local-host
local-port) (SOCKET:SOCKET-STREAM-LOCAL socket)
                (MULTIPLE-VALUE-BIND (remote-host
remote-port) (SOCKET:SOCKET-STREAM-PEER socket)
                  (FORMAT T "~&Connection: ~S:~D --
~S:~D~%"
                          remote-host remote-port
local-host local-port)))
              ;; loop is terminated when the remote
host closes the connection or on EXT:EXIT
              (LOOP (WHEN (EQ :eof
(SOCKET:SOCKET-STATUS (cons socket :input))) (RETURN))
                    (PRINT (EVAL (READ socket)) socket)
                    ;; flush everything left in socket
                    (LOOP :for c = (READ-CHAR-NO-HANG
socket nil nil) :while c)
                    (TERPRI socket))))
    ;; make sure server is closed
    (SOCKET:SOCKET-SERVER-CLOSE server)))
Waiting for a connection on "0.0.0.0":32784

*** - SOCKET-STREAM-LOCAL: argument
*** - Internal error: statement in file "io.d", line
6969 has been reached!!
      Please send the authors of the program a
description how you produced this error!
The following restarts are available:
ABORT          :R1      ABORT


----------------------------------------------------------------------

>Comment By: Sam Steingold (sds)
Date: 2006-01-13 09:29

Message:
Logged In: YES 
user_id=5735

fixed in 2.37.
please upgrade.

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1404418&group_id=1355