`(call-component ,component (make-instance 'standard-display-component
:display #'(lambda (component)
(with-component (component)
`(call-component ,component (make-instance 'standard-display-component
:display #'(lambda (component)
(with-component (component)