talk

talk

;server
(defparameter my-socket (socket-server 4321))
(defparameter my-stream (socket-accept my-socket))

;client
(defparamenter my-stream (socket-connect 4321 "127.0.0.1"))
(print "Yo Server!" my-stream)

;client recieves
(read my-stream)

; server sends
(print "What up, Client!" my-stream)

;server
(close my-stream)

;client
(close my-stream)

; check to make sure closed
(socket-server-close my-socket)

; client recieves
(read my-stream)