[armedbear-ticket] [armedbear] #42: TRACE of FORMAT blows up the stack

[armedbear]

#42: TRACE of FORMAT blows up the stack
----------------------+-----------------------------------------------------
 Reporter:  mevenson  |       Owner:  somebody   
     Type:  defect    |      Status:  new        
 Priority:  major     |   Milestone:  unscheduled
Component:  other     |     Version:  1.0        
 Keywords:            |  
----------------------+-----------------------------------------------------
 (trace format)
 (format t "sfsdf")

 will result in a STORAGE-CONDITION
 {{{
 Debugger invoked on condition of type STORAGE-CONDITION:
 java.lang.StackOverflowError
         at org.armedbear.lisp.Symbol.symbolValue(Symbol.java:300)
         at org.armedbear.lisp.Readtable.<init>(Readtable.java:123)
         at org.armedbear.lisp.Readtable$2.execute(Readtable.java:348)
         at org.armedbear.lisp.Symbol.execute(Symbol.java:733)
         at org.armedbear.lisp.LispThread.execute(LispThread.java:618)
         at org.armedbear.lisp.with_standard_io_syntax_1.execute(with-
 standard-io-syntax.lisp:35)
         at org.armedbear.lisp.Symbol.execute(Symbol.java:733)
         at org.armedbear.lisp.LispThread.execute(LispThread.java:618)
         at org.armedbear.lisp.trace_30._execute(trace.lisp:88)
         at
 org.armedbear.lisp.ClosureTemplateFunction._execute(ClosureTemplateFunction.java:208)
         at
 org.armedbear.lisp.ClosureTemplateFunction.execute(ClosureTemplateFunction.java:100)
         at
 org.armedbear.lisp.CompiledClosure.execute(CompiledClosure.java:86)
         at org.armedbear.lisp.Symbol.execute(Symbol.java:777)
         at org.armedbear.lisp.LispThread.execute(LispThread.java:690)
         at org.armedbear.lisp.trace_31._execute(trace.lisp:88)
         at
 org.armedbear.lisp.ClosureTemplateFunction.execute(ClosureTemplateFunction.java:71)
 }}}

-- 
Ticket URL: <http://127.0.0.1:8000/armedbear/ticket/42>
armedbear <http://common-lisp.net/project/armedbear>
armedbear