(let* ((nav
           (make-navigation
             'main-menu
             'self (make-instance 'composite :widgets (list
		(let ((self-widg (make-instance 'composite)))
                     (setf (composite-widgets self-widg)
                           (list
                             (lambda () "test1")
                             (lambda ()
                               (format t "About to flow.~%")
                               (with-flow
                                 self-widg
                                 (cond
                                   ((yield
                                      (make-instance
                                        'login
                                        :view 'my-login-view
                                        :on-login #'check-login))
                                    (format t "Yield true.~%")
                                    "Go You.")))
                               (redirect "/self"))))
                     self-widg))))))
    nav)