#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.