Hi,

I'm trying to send some strings using the format function in LISP to a sockets but always I obtain NIL

I'm using this function:

(defun sockets_fun()
(WITH-OPEN-STREAM (socket (SOCKET:SOCKET-CONNECT 49729 "localhost"))
(let ((*standard-output* socket))
(format socket "The color is ~A" "red")
(force-output socket)
(finish-output nil)
)))

But always I obtain NIL in the socket

Instead of that function I've tried to use this another function:

(defun geetings()
(print "hi"))

and works fine, appears hi in the socket

Why there are problems with sockets with the format function?

Thanks