[cmucl-ticket] [cmucl] #30: Assertion error in PROPAGATE-LOCAL-CALL-ARGS

[cmucl]

#30: Assertion error in PROPAGATE-LOCAL-CALL-ARGS
--------------------+-------------------------------------------------------
 Reporter:  rtoy    |       Owner:  somebody
     Type:  defect  |      Status:  new     
 Priority:  major   |   Milestone:          
Component:  Core    |     Version:  2009-01 
 Keywords:          |  
--------------------+-------------------------------------------------------
 From cmucl-imp, 2009/01/25

 This function triggers an assertion when compiled.

 {{{
 (defun foo (&key arg)
   (flet ((bar ()
            (destructuring-bind () ()
              arg)))))
 }}}

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