(loop while (not (char= #\Newline (peek-char))) do (reader))
Hell world How do you do?
nil
cl-user> inputstring
"HellworldHowdoyoudo?"
cl-user> input
(|HellworldHowdoyou| |HellworldHowdo| |HellworldHow| |Hellworld| |Hell|)