+(defcomponent lol-test-call-magic (lol-test-render)
+ ()
+ (:default-initargs :message "Testing CALL magic."))
+
+(defmethod render :wrapping ((self lol-test-call-magic))
+ (call-next-method)
+ (<lol:a :action (setf (message self) (call 'lol-test-answer-magic)) "Test CALL")
+ (<:br)
+ (<lol:a :action (answer-component self nil) "Go Back."))
+
+
+
+(defcomponent lol-test-answer-magic (lol-test-render)
+ ()
+ (:default-initargs :message "Hit it to answer"))
+
+(defmethod render :wrapping ((self lol-test-answer-magic))
+ (call-next-method)
+
+ (<lol:a :action (answer "Ja, dat is vut ve answer" ) "IT! (hit here)"))
+
+(defcomponent lol-test-call-answer-action-magic (lol-test-render)
+ ()
+ (:default-initargs :message "Hit it to answer"))
+
+(defaction test-call-component ()
+ (call 'lol-test-call-answer-action-magic :message "We made it"))
+
+(defaction test-answer-component ()
+ (answer "We Made IT BACK!!!"))
+
+(defmethod render :wrapping ((self lol-test-call-answer-action-magic))
+ (call-next-method)
+ (<lol:a :action (test-call-component) "Test CALL from ACTION")
+ (<:br)
+ (<lol:a :action (test-answer-component) "Test ANSWER from ACTION"))
+