READ-CST produces inconsistent raw data when reading circular input

[marcoheisig]

(with-input-from-string (stream "#1=(#1#)")
    (eclector.concrete-syntax-tree:cst-read stream))

evaluates to a cst whose raw data is #1=(#1#), but whose FIRST cst has the raw data (t)