[cmucl-ticket] [cmucl] #4: symbol-macrolet + ignorable causes internal compiler error.

[cmucl]

#4: symbol-macrolet + ignorable causes internal compiler error.
--------------------+-------------------------------------------------------
 Reporter:  rtoy    |       Owner:  somebody
     Type:  defect  |      Status:  new     
 Priority:  major   |   Milestone:          
Component:  Core    |     Version:  19c     
 Keywords:          |  
--------------------+-------------------------------------------------------
 The following causes an internal type error in the compiler because the
 compiler was expecting some kind of list:

 {{{
 * (symbol-macrolet ((a 42))
     (declare (ignorable a))
     4711)

 Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
    (SYSTEM:MACRO . 42) is not of type C::LAMBDA-VAR
    [Condition of type TYPE-ERROR]
 }}}

 Reported on cmucl-imp, 2006/05/20.

-- 
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/4>
cmucl <http://common-lisp.net/project/cmucl>
cmucl