((test :component lol-test-simple-action :accessor test)
(component :component lol-test-render :accessor component)))
((test :component lol-test-simple-action :accessor test)
(component :component lol-test-render :accessor component)))
(<:H1 "Lisp On Lines Web test suite")
(render (slot-value self 'test))
(<:div
:style "border:1px solid black;"
(render (slot-value self 'component))))
(<:H1 "Lisp On Lines Web test suite")
(render (slot-value self 'test))
(<:div
:style "border:1px solid black;"
(render (slot-value self 'component))))
:function
(lambda ()
(setf (message $component)
(format nil "~A : ~A" (message $component) "FUNCTION")))
"Test <:A :FUNCTION type actions"))
(<:li
:function
(lambda ()
(setf (message $component)
(format nil "~A : ~A" (message $component) "FUNCTION")))
"Test <:A :FUNCTION type actions"))
(<:li
:action (setf (message $component)
(format nil "~A : ~A" (message $component) "ACTION"))
"Test <:A :ACTION type actions"))
(<:li
:action (setf (message $component)
(format nil "~A : ~A" (message $component) "ACTION"))
"Test <:A :ACTION type actions"))
(<:li
:action* (make-action
(lambda ()
(setf (message $component)
(format nil "~A : ~A" (message $component) "ACTION*"))))
"Test <:A :ACTION* type actions"))
(<:li
:action* (make-action
(lambda ()
(setf (message $component)
(format nil "~A : ~A" (message $component) "ACTION*"))))
"Test <:A :ACTION* type actions"))
(<:li
:action (call-component $component (make-instance 'lol-test-answer))
"Test CALL-COMPONENT/ANSWER-COMPONENT"))
(<:li
:action (call-component $component (make-instance 'lol-test-answer))
"Test CALL-COMPONENT/ANSWER-COMPONENT"))
(<:li
:action (call-component $component (make-instance 'lol-test-call-answer-action-magic))
"Test CALL/ANSWER ACTION MAGIC"))
(<:li
:action (call-component $component (make-instance 'lol-test-call-answer-action-magic))
"Test CALL/ANSWER ACTION MAGIC"))
(<:li