[PATCH] Fix #n# replacement with structures

Ok, I've finished analyzing Stream.java and I've come to the
conclusion the patch below should be enough to fix all reader errors
regarding #n# replacement.

The patch below fixes the is program, meaning that -instead of raising
an error- it happily reads its own output back in.

Bye,

Erik.

======================================

(defparameter q "some string")

(defstruct s slot)

(let ((*print-circle* t))
(read-from-string
        (print (prin1-to-string (list (make-s :slot q)
                               (make-s :slot q))))))

======================================

Index: Stream.java
===================================================================
RCS file: /cvsroot/armedbear-j/j/j/src/org/armedbear/lisp/Stream.java,v
retrieving revision 1.154
diff -u -r1.154 Stream.java
--- Stream.java	23 Feb 2007 21:17:34 -0000	1.154