Streams

[rauen@CLS.LCS.MIT.EDU (James R. Rauen)]

I'm encountering some difficulties with synonym streams.  Let's say I
do the following:

	(defvar a *standard-input*)
	(defvar b *standard-output*)
	(defvar c (make-synonym-stream 'a))
	(defvar d (make-synonym-stream 'b))
	(defvar e (make-two-way-stream c d))
	(setq a *standard-output*)

Now stream C has been turned into an output stream.  What is E now?
What does it answer to INPUT-STREAM-P?  I can also cause trouble by
changing the value of a synonym stream's variable from a character
stream to a byte stream.

		--Jim