Re: [Gcl-devel] gcl loops if a #| comment is incomplete at the end of the file

[Camm Maguire]

Greetings, and thanks!

Just checked in a fix to cvs head.

Take care,

Tim Josling <address@hidden> writes:

> Here's a sample script that causes GCL to loop.
> 
> echo "#|" >temp.lisp
> echo >>temp.lisp
> gcl -eval "(compile-file \"temp.lisp\")"
> 
> Here's a console log
> 
> /home2/gcb/gcb/gcc/gcc/gcb $>echo "#|" >temp.lisp
> /home2/gcb/gcb/gcc/gcc/gcb $>echo >>temp.lisp
> /home2/gcb/gcb/gcc/gcc/gcb $>gcl -eval "(compile-file \"temp.lisp\")"
> GCL (GNU Common Lisp)  2.6.7 CLtL1    Nov 10 2006 14:25:02
> Source License: LGPL(gcl,gmp), GPL(unexec,bfd,xgcl)
> Binary License:  GPL due to GPL'ed components: (XGCL READLINE BFD UNEXEC)
> Modifications of this banner must retain notice of a compatible license
> Dedicated to the memory of W. Schelter
> 
> Use (help) to get some basic information on how to use GCL.
> Temporary directory for compiler files set to /tmp/
> Compiling temp.lisp.
> 
> [...some time later...]
> 
> Error: Console interrupt.
> Fast links are on: do (si::use-fast-links nil) for debugging
> Error signalled by READ.
> Broken at SYSTEM:TERMINAL-INTERRUPT.  Type :H for Help.
> >>:b    
> Backtrace: funcall > system:top-level > compile-file > block > tagbody > 
> progn > setq > apply > apply > compiler::compile-file1 > let > unwind-protect 
> > progn > let* > let > unwind-protect > progn > progn > let* > unwind-protect 
> > do > read > SYSTEM:TERMINAL-INTERRUPT
> NIL
> >>:bt
> 
> #0   READ {loc0=#<input stream 
> "temp.lisp">,loc1=nil,loc2=(nil),loc3=nil,loc4=nil,loc5=#<r...} [ihs=25]
> #1   COMPILE-FILE1 {} [ihs=13]
> #2   APPLY {loc0=compiler::compile-file1,loc1=("temp.lisp"),loc2="temp.lisp"} 
> [ihs=12]
> #3   APPLY {loc0=compiler::compile-file1,loc1=("temp.lisp")} [ihs=11]
> #4   COMPILE-FILE {} [ihs=6]
> #5   TOP-LEVEL {loc0=nil,loc1=nil,loc2=nil,loc3=(lambda-block compile-file 
> (&rest compiler::arg...} [ihs=5]
> #6   FUNCALL {loc0=#<compiled-function 
> system:top-level>,loc1=nil,loc2=0,loc3=0,loc4=nil,loc5...} [ihs=4]
> NIL
> >>(quit)
> /home2/gcb/gcb/gcc/gcc/gcb $>
> 
> Regards,
> Tim Josling
> 
> 
> 
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/gcl-devel
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah