Method: (RENDER TASK-COMPONENT)

Source

(defmethod render ((task task-component))
  (with-call/cc
    (start task))
  (let ((active-component (place (component.place task))))
    ;; active-component is the object currently in the place of the
    ;; task component. after calling and answering active-component
    ;; should not be TASK itself.
    (when (eq task active-component)
      (error "No active component after calling task's start method"))
    (render active-component)))