[cmucl-ticket] [cmucl] #25: Compiler bug

[cmucl]

#25: Compiler bug
----------------------+-----------------------------------------------------
 Reporter:  rtoy      |       Owner:  somebody
     Type:  defect    |      Status:  new     
 Priority:  major     |   Milestone:          
Component:  Core      |     Version:  2008-11 
 Keywords:  compiler  |  
----------------------+-----------------------------------------------------
 Reported on cmucl-imp, 2008-10-31

 {{{
 (declaim (optimize (speed 0) (safety 3) (debug 3)))

 (defun test-pop-and-return ()
   (loop
     (pop *random-stack*)
     (return)))
 }}}

 When compiled, this causes an internal compiler error from {{{STACK-
 ANALYZE}}}.

 The error happens because {{{NODE-PREV}}} returns {{{NIL}}} instead of a
 node.

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