Hi,
I have this function to read a line using chars. I'm reading chars, because I'm trying to communicate Lisp and Java using sockets and chars.
(def$method (tty-dialog-mixin :babylon-read-string) (&optional special-keys)
(setq X 0)
(setf exit "")
(loop while (<= X 0) do
(let ((char1 (read-char-no-hang *standard-input*)))
(if (eql char1 nil)
(progn
(setq X 1))
(setq exit (concatenate 'string exit (string char1)))
)
)
)
)
but I don't know why always the value of exit is "". I'm trying to update the variable exit with the concatenation of every char received of the socket
Thanks