XLISP bug

[John, KA9MNK]

> The new posting of XLISP hangs forever when trying to load 'pt.lsp' on
> a vax 780 under BSD 4.1.  In the routine 'gc', there is a "for" loop
> that keeps going over and over the same nodes to mark and never exits. 
> Interestingly enough, this problem does not show up if the program is
> hand typed, just if loaded in from the file.
> 
> 	         .... memo from the desk of Ron Light
> 		                    Fort Worth, Texas
>           ... {ctvax,microsoft,ihnp4!sys1}!trsvax!ron
> 	          ... cu-arpa.trsvax!ron at Cornell.ARPA



The bug is in the xlload() routine in xlread.c.  The source (beginning at
line 44) currently reads:


	/* open the file */
	if ((fp = fopen(fname,"r")) == NULL)
	    return (FALSE);



Change this to:


	/* open the file */
	if ((fp = fopen(fname,"r")) == NULL)
	{
	    xlstack = oldstk;
	    return (FALSE);
	}




			John Opalko
			AT&T Bell Labs
			Naperville, IL
			...!ihnp4!ihu1e!jgpo