[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
hung network programs
I think you have to call force-output on the network streams before
any packets get sent.
(net:define-server :test (:medium :byte-stream :stream stream :no-close nil)
(let ((msg (read-line stream)))
(setq *most-recent-message* msg)))
(net:define-protocol :test (:send-test :byte-stream)
(:invoke-with-stream-and-close (stream msg)
(write-line msg stream)
It's bitten me a few times and not just on Symbolics.