[armedbear-devel] how to redirect format function to a socket stream

[Santiago Carbonell]

Hi,

I've a socket stream named "socket" in this port and host: 50362 and
localhost

I've written this function to redirect format function to the socket but
only appears NIL. How can I redirect format t lisp function to a socket?

(defun colors()
(WITH-OPEN-STREAM (socket (SOCKET:SOCKET-CONNECT 50362 "localhost"))
(let ((*standard-output* socket))
(format t "The color is ~A" "red")
)))

Thanks
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/armedbear-devel/attachments/20120513/307f9f6c/attachment.html>