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
Gcl-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/gcl-devel
