Name: Anonymous 2012-03-06 14:06
which should i learn?
(defun call/cc (f)
(let ((r nil))
(tagbody (setf r (funcall f (lambda (v)
(setf r v)
(go l))))
l)
r))
(call/cc #'call/cc)