[ clisp-Bugs-1961475 ] Hang on read-char-no-hang after clisp 2.41

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

Bugs item #1961475, was opened at 2008-05-10 08:07
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1961475&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
Private: No
Submitted By: Angel Popov (angelpopov)
>Assigned to: Sam Steingold (sds)
Summary: Hang on read-char-no-hang after clisp 2.41

Initial Comment:
on clisp 2.41 (send-hi) works as expected, but on clisp 2.42, 2.43 and 2.44 it hangs on read-char-no-hang

(defun send-hi (socket)
  (with-open-stream (s socket)
    (format s "GET /authentication/login HTTP/1.1
COOKIE:NIL
PACKET-ID:3
USER:clisp
CLIENT-CHANNEL:clisp
COOKIE-TEMPLATE:clisp
AUTHENTICATE:PLAIN
ENCRIPTION:NONE

")

    (format t " 1 reply from server ~A~%" (read-line s nil nil))
    (format t " 2 reply from server ~A~%" (read-line s nil nil))
    (format t " 3 reply from server ~A~%" (read-line s nil nil))
    (format t " 4 reply from server ~A~%" (read-line s nil nil))
    (format t " 5 reply from server ~A~%" (read-line s nil nil))
    (format t " 6 reply from server ~A~%" (read-line s nil nil))
    (format t " 7 reply from server ~A~%" (read-line s nil nil))
    (format t " 8 reply from server ~A~%" (read-line s nil nil))
    (format t " 9 reply from server ~A~%" (read-line s nil nil))    
    (format t "10 reply from server ~A~%" (read-line s nil nil))
    (print (read-char-no-hang s nil nil))
    (print (read-char-no-hang s nil nil))
    (print (read-char-no-hang s nil nil))))

(send-hi (socket:socket-connect 9001 "im.webmessenger.com" :external-format :dos))

it works on 
LISP-IMPLEMENTATION-TYPE     "CLISP"
LISP-IMPLEMENTATION-VERSION  "2.41 (2006-10-13) (built 3418775163) (memory 3418775484)"
SOFTWARE-TYPE                
"gcc -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -O -DUNICODE -DNO_TERMCAP_NCURSES -DDYNAMIC_FFI -I. -x none libcharset.a libavcall.a libcallback.a -ldl   -L/usr/local/lib -lsigsegv -lc 
SAFETY=0 TYPECODES WIDE GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.5"
SOFTWARE-VERSION             "GNU C 4.2.3 (Ubuntu 4.2.3-2ubuntu7)"
MACHINE-INSTANCE             "temenuzhka [192.168.123.83]"
MACHINE-TYPE                 "X86_64"
MACHINE-VERSION              "X86_64"
*FEATURES*                   
(:REGEXP :SYSCALLS :I18N :LOOP :COMPILER :CLOS :MOP :CLISP :ANSI-CL :COMMON-LISP :LISP=CL :INTERPRETER :SOCKETS :GENERIC-STREAMS
 :LOGICAL-PATHNAMES :FFI :GETTEXT :UNICODE :BASE-CHAR=CHARACTER :PC386 :UNIX)

but does not work with later releases of clisp


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

Comment By: Sam Steingold (sds)
Date: 2008-05-10 22:10

Message:
Logged In: YES 
user_id=5735
Originator: NO

thank you for your bug report.
the bug has been fixed in the CVS tree.
you can either wait for the next release (recommended)
or check out the current CVS tree (see http://clisp.cons.org)
and build CLISP from the sources (be advised that between
releases the CVS tree is very unstable and may not even build
on your platform).

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

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