- (fielddone nil)
- (rc (read-char strm nil +eof-char+)
- (read-char strm nil +eof-char+)))
- (fielddone (unread-char rc strm))
- (declare (type fixnum ipos)
- (type base-char rc)
- (type boolean fielddone))
- (cond
- ((char= rc field-delim)
- (setf (fill-pointer field) ipos)
- (setq fielddone t))
- ((char= rc +newline+)
- (setf (fill-pointer field) ipos)
- (setf (fill-pointer fields) ifield)
- (setq fielddone t)
- (setq linedone t))
- ((char= rc +eof-char+)
- (setf (fill-pointer field) ipos)
- (setf (fill-pointer fields) ifield)
- (setq fielddone t)
- (setq linedone t)
- (setq eof t))
- (t
- (setf (char field ipos) rc)
- (incf ipos)))))))
+ (fielddone nil)
+ (rc (read-char strm nil +eof-char+)
+ (read-char strm nil +eof-char+)))
+ (fielddone (unread-char rc strm))
+ (declare (type fixnum ipos)
+ (type base-char rc)
+ (type boolean fielddone))
+ (cond
+ ((char= rc field-delim)
+ (setf (fill-pointer field) ipos)
+ (setq fielddone t))
+ ((char= rc +newline+)
+ (setf (fill-pointer field) ipos)
+ (setf (fill-pointer fields) ifield)
+ (setq fielddone t)
+ (setq linedone t))
+ ((char= rc +eof-char+)
+ (setf (fill-pointer field) ipos)
+ (setf (fill-pointer fields) ifield)
+ (setq fielddone t)
+ (setq linedone t)
+ (setq is-eof t))
+ (t
+ (setf (char field ipos) rc)
+ (incf ipos)))))))