[Take *read-suppress* into account
pix@kepibu.org**20090719122828] {
hunk ./reader.lisp 14
+      (*read-suppress*
+       (read-form stream)
+       (read-form stream)
+       (values))
}