Number: 79

Date: 17-Mar-84  0':09':15

Submitter: roach.PA

Source: 

Subject: READ, OPENSTRINGSTREAM, & RDTBL PROBLEMS

Lisp Version: 

Description: '
Date':  8 MAR 84 21':45 PST'
From': ROACH.PA'
Subject': READ, OPENSTRINGSTREAM, & RDTBL PROBLEMS'
To':   LISPSUPPORT'
cc':   ROACH'
'
     Do the following':'
'
	(SETSYNTAX ''$ ''(MACRO FIRST NONIMMEDIATE ESCQUOTE FOO))'
'
	(DEFINEQ (FOO (LAMBDA (STREAM RDTBL)'
	  (LIST ''BAR (READ STREAM RDTBL)))))'
'
	(SETQ STRING "$MEEF")'
'
	(SETQ STREAM (OPENSTRINGSTREAM STRING))'
'
Then (READ STREAM) produces (BAR (BAR MEEF)) instead of the expected'
answer (BAR MEEF).  Suppose FOO had been'
'
	(DEFINEQ (FOO (LAMBDA (STREAM RDTBL)'
	  (LIST ''BAR (GETFILEPTR STREAM) (READ STREAM RDTBL)))))'
'
Then (READ STREAM) would have produced (BAR 0 (BAR 1 MEEF)).'
     One source of problems': FOO is being passed the fullname of'
STREAM (i.e. "$MEEF") rather than STREAM itself.'


Workaround: 

Test Case: 

Edit-By: Sannella.PA

Edit-Date: 21-Mar-84 11':16':23

Attn: 

Assigned To: 

In/By: AR 41

Disposition: 

System: Operating System

Subsystem: Generic File Operations

Machine: 

Disk: 

Microcode Version: 

Memory Size: 

File Server: 

Server Software Version: 

Difficulty: 

Frequency: Everytime

Impact: Moderate

Priority: 

Status: Superseded

Problem Type: Bug

Source Files: FILEIO