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

[Tim Josling]

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