Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84 exptools; site ihu1e.UUCP
Path: utzoo!watmath!clyde!bonnie!akgua!whuxlm!whuxl!houxm!ihnp4!ihu1e!jgpo
From: jgpo@ihu1e.UUCP (John, KA9MNK)
Newsgroups: net.sources.bugs
Subject: Re: XLISP bug
Message-ID: <390@ihu1e.UUCP>
Date: Sat, 16-Feb-85 11:22:14 EST
Article-I.D.: ihu1e.390
Posted: Sat Feb 16 11:22:14 1985
Date-Received: Mon, 18-Feb-85 04:37:33 EST
References: <81000004@trsvax.UUCP>
Organization: AT&T Bell Laboratories
Lines: 40

> 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@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