- `(let ((,strm ,stream))
- (do ((,var (read-line stream nil ,eof) (read-line stream nil ,eof)))
- (eq ,var ,eof)
- ,@body))))
+ `(let ((,strm ,stream)
+ (,eof ',eof-value))
+ (do ((,var (read-line ,strm nil ,eof) (read-line ,strm nil ,eof)))
+ ((eql ,var ,eof))
+ ,@body))))