[armedbear-ticket] [armedbear] #308: Compiled FLET exhausts the stack (was: Hunchentoot fails redirection tests)

[armedbear]

#308: Compiled FLET exhausts the stack
------------------------------+---------------------------------------------
 Reporter:  mevenson          |       Owner:  ehuelsmann
     Type:  defect            |      Status:  new       
 Priority:  major             |   Milestone:  1.2.0     
Component:  compiler          |     Version:  1.2.0-dev 
 Keywords:  ansi-conformance  |  
------------------------------+---------------------------------------------
Changes (by mevenson):

  * keywords:  quicklisp hunchentoot => ansi-conformance
  * owner:  somebody => ehuelsmann
  * component:  other => compiler


Old description:

> The tests included with Hunchentoot as invoked by (asdf:test-system
> :hunchentoot) fail in the redirection test.
>
> If *print-pretty* is t, the test fails in the XP printer.
>
> If *print-pretty* is nil, the test fails with a stack overflow STORAGE-
> CONDITION.

New description:

 In diagnosing the stack exhaustion which occurs in the HUNCHENTOOT test
 suite, the following compiler error was found.

 {{{
 (defun bar (arg)
   "non-flet")

 (defun foo ()
   (flet ((bar (arg)
            (bar arg)))
     (bar "something")))
 }}}

 For which

 {{{
    CL-USER> (foo)
 }}}

 will exhaust the stack in the compiled version, but not the interpreted
 one.

--

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/308#comment:2>
armedbear <http://common-lisp.net/project/armedbear>
armedbear