[cmucl-ticket] [cmucl] #27: Trace bug on Darwin/x86

[cmucl]

#27: Trace bug on Darwin/x86
--------------------+-------------------------------------------------------
 Reporter:  rtoy    |       Owner:  rtoy   
     Type:  defect  |      Status:  new    
 Priority:  major   |   Milestone:         
Component:  Core    |     Version:  2008-11
 Keywords:          |  
--------------------+-------------------------------------------------------
 This bit of code causes a bug in tracing on Darwin/x86:

 {{{
 (defun call-fact-acc (x)
   (let ((r (multiple-value-list (fact-acc x))))
     (values-list r)))

 (defun fact-acc (x)
   (labels ((f (x accum)
              (if (zerop x)
                  accum
                  (f (1- x) (* x accum)))))
     (f x 1)))

 (trace fact-acc)
 }}}

 Then {{{(call-fact-acc 4)}}} causes a segfault and you can't even get back
 to the repl.

 This bug is fixed in CVS, but I'm recording this simple test case here.

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