(setf (fill-pointer linebuffer) 0)
(do ((c (read-char strm nil +eof-char+)
(read-char strm nil +eof-char+)))
(done (progn
(unless (eql c +eof-char+) (unread-char c strm))
(setf (fill-pointer linebuffer) 0)
(do ((c (read-char strm nil +eof-char+)
(read-char strm nil +eof-char+)))
(done (progn
(unless (eql c +eof-char+) (unread-char c strm))