Number: 1582

Date:  2-Jul-84 12':55':49

Submitter: Kaplan

Source: Kaplan

Subject: EOFP still not right for text streams

Assigned To: 

Attn: release

Status: Fixed

In/By: 

Problem Type: Bug

Impact: Serious

Difficulty: 

Frequency: Everytime

Priority: Absolutely

System: Text

Subsystem: TEdit

Machine: 1132

Disk: 

Lisp Version: 29-Jun-84 15':49':40

Source Files: 

Microcode Version: 5124

Memory Size: 4096

File Server: 

Server Software Version: 

Disposition: 

Description: If you'
'
(SETQ FOO (OPENTEXTSTREAM))'
(PRIN1 "A" FOO)'
(EOFP FOO), you get NIL instead of T.'
'
If you then '
(SETFILEPTR FOO 0)'
(READC FOO)  (you get A back, then)'
(EOFP FOO), you again get NIL instead of T, and then'
(READC FOO) gives you an EOF error.'
'
Note, however, that if you'
(EOFP (OPENTEXTSTREAM)), that is, without any other manipulation of the stream, you get T.'
'
General rule should be that EOFP=NIL implies that READC (\BIN) will not give an EOF error.

Workaround: 

Test Case: 

Edit-By: Sybalsky

Edit-Date: 18-Aug-84 11':30':44