Merge pull request #1680 from clasp-developers/clear-eof

Clear EOF if we hit it in a C file stream

Author: Bike

src/core/lispStream.cc

@@ -4974,9 +4974,12 @@ cl_index CFileStream_O::read_byte8(unsigned char* c, cl_index n) {
       out = fread(c, sizeof(char), n, _file);
     } while (out < 0 && ferror(_file) && errno == EINTR);
   } END_PARK;
-  // note: EOF we leave to the caller to figure out
-  if (out < n && ferror(_file)) io_error("fread");
-
+  // note: EOF we leave to the caller to figure out,
+  // though we do clear it in case there's more reading to do later.
+  if (out < n) {
+    if (ferror(_file)) io_error("fread");
+    else clearerr(_file);
+  }
   return out;
 }