[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.

ie

(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)
    (force-output stream)))

It's bitten me a few times and not just on Symbolics.