[armedbear-ticket] [armedbear] #191: Compiling SHARPSIGN SHARPSIGN form causes stack overflow

[armedbear]

#191: Compiling SHARPSIGN SHARPSIGN form causes stack overflow
----------------------+-----------------------------------------------------
 Reporter:  mevenson  |       Owner:  ehuelsmann
     Type:  defect    |      Status:  new       
 Priority:  major     |   Milestone:  1.0.1     
Component:  compiler  |     Version:  1.0       
 Keywords:            |  
----------------------+-----------------------------------------------------
 [http://article.gmane.org/gmane.lisp.armedbear.devel/2142 Anton reports]
 that compiling the alexandria tests from Quicklisp 2011-12-03 results in a
 stack overflow.

 The offending form seems to be

 {{{

 (deftest circular-tree-p.2
     (alexandria:circular-tree-p '#1=(#1#))
   t)
 }}}

 where the problem seems to occur in the compiling ADD-ENTRY function

 {{{
   0: (#<FUNCTION {47D2FBB5}> #<STORAGE-CONDITION {18010D30}> #<FUNCTION
 {47D2FBB5}>)
   1: (APPLY #<FUNCTION {47D2FBB5}> (#<STORAGE-CONDITION {18010D30}>
 #<FUNCTION {47D2FBB5}>))
   2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<STORAGE-CONDITION
 {18010D30}> #<FUNCTION {47D2FBB5}>)
   3: (INVOKE-DEBUGGER #<STORAGE-CONDITION {18010D30}>)
  […]
  31: org.armedbear.lisp.Primitives$pf_apply.execute(Primitives.java:2853)
  32: (#<FUNCTION {5F4298A5}>)
  33: (JRUN-EXCEPTION-PROTECTED #<FUNCTION {5F4298A5}>)
  34: (SYSTEM::CONVERT-TOPLEVEL-FORM (REGRESSION-TEST::ADD-ENTRY
 (REGRESSION-TEST::MAKE-ENTRY :PEND T :NAME 'ALEXANDRIA-TESTS::CIRCULAR-
 TREE-P.2 :PROPS ...)) NIL)
  35: (SYSTEM::PROCESS-TOPLEVEL-FORM (REGRESSION-TEST::ADD-ENTRY
 (REGRESSION-TEST::MAKE-ENTRY :PEND T :NAME 'ALEXANDRIA-TESTS::CIRCULAR-
 TREE-P.2 :PROPS ...)) #<FILE-STREAM {D33A97F}> NIL)
 }}}

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/191>
armedbear <http://common-lisp.net/project/armedbear>
armedbear