[xyzzy:08899] read-char-no-hang のこと

[Osamu Yamane <yamane@xxxxxxxxxxxxxxx>]

山根＠千葉 と申します。

read-char-no-hang のことで。

(with-open-stream (stream (connect "www.yahoo.co.jp" 80))
  (format stream "GET /\n")
  (loop
    (when (setq in (read-char stream nil))
      (insert in))))

は、www.yahoo.co.jp から読んできますが（止まらないけれど）、

(with-open-stream (stream (connect "www.yahoo.co.jp" 80))
  (format stream "GET /\n")
  (loop
    (when (setq in (read-char-no-hang stream nil))
      (insert in))))

だと、何も読んでくれないみたいです。
使い方間違えてますでしょうか。


ストリームを読む時のタイムアウトを格好よく処理したい
（１０秒待っても無応答なら別の処理をしたい、とか）と思い、
read-char-no-hang でハマってしまいました。