r4823: Auto commit for Debian build

[kmrcl.git] / buff-input.lisp

diff --git a/buff-input.lisp b/buff-input.lisp
index f0802bc0bff2b141479a24a27668c0c7ab7fbf57..3d678431776039b30db330cb0588bc26c85496da 100644 (file)
--- a/buff-input.lisp
+++ b/buff-input.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;

-;;;; $Id: buff-input.lisp,v 1.5 2003/05/05 19:54:14 kevin Exp $
+;;;; $Id: buff-input.lisp,v 1.7 2003/05/06 01:45:44 kevin Exp $

 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;


@@ -40,7 +40,8 @@
       (setf (aref bufs i) (make-array max-field-len :element-type 'character :fill-pointer 0 :adjustable nil)))
     bufs))
 
       (setf (aref bufs i) (make-array max-field-len :element-type 'character :fill-pointer 0 :adjustable nil)))
     bufs))
 

-(defun read-buffered-fields (fields strm &optional (field-delim +field-delim+))
+(defun read-buffered-fields (fields strm &optional (field-delim +field-delim+)
+                            (eof 'eof))

   "Read a line from a stream into a field buffers"
   (declare (type base-char field-delim)
           (type vector fields))
   "Read a line from a stream into a field buffers"
   (declare (type base-char field-delim)
           (type vector fields))


@@ -48,7 +49,7 @@
   (do ((ifield 0 (1+ ifield))
        (linedone nil)
        (eof nil))
   (do ((ifield 0 (1+ ifield))
        (linedone nil)
        (eof nil))

-      (linedone (if eof 'eof fields))
+      (linedone (if eof eof fields))

     (declare (type fixnum ifield)
             (type boolean linedone eof))
     (let ((field (aref fields ifield)))
     (declare (type fixnum ifield)
             (type boolean linedone eof))
     (let ((field (aref fields ifield)))