[Bese-devel] Re: admin page currently broken

[William Halliburton]

This can be replicated with

(setf *form* (walk-form '(mapcar (lambda (a) (+ a 1)) '(1 2 3))))
(drive-cps (evaluate/cps *form* nil *toplevel-k*))

Looking at (defmethod evaluate/cps ((func free-application-form) env
k) it looks like a special case needs to be added for mapcar?

Is there a good way to look at the execution of evalutate/cps without tracing?

Will