[xyzzy:06082] Re: general-xxx-stream (was Re: バージョンナップのお知らせ)

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

とーいさん、こんにちは。

	2001年2月7日(水)[15:27:10]の、
	[xyzzy:06080] general-xxx-stream (was Re: バージョンナップのお知らせ)
	への返事です。

| 上記のように送られた先のバッファの変数を参照することはできますでしょう
| か？(いまいち伝わってないでしょうか…)

そのへんはクロージャでやることを意図して作ってあるので、
まあ、こんな感じで。

(defun make-toy-stream (buffer)
  (let ((bs (make-buffer-stream buffer)))
    (make-general-output-stream
     #'(lambda (str)
	 (format bs "~A:~A" (buffer-name buffer) str)))))

(let ((s (make-broadcast-stream
	  (make-toy-stream (switch-to-buffer "a"))
	  (make-toy-stream (switch-to-buffer "b"))
	  (make-toy-stream (switch-to-buffer "c")))))
  (write "abc" :stream s))

-- 
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx