Пояснить код с диалогом закрытия окна в CL-gtk2+

      (g-signal-connect Окно2 "delete-event" (lambda (widget event)
                                                (declare (ignore widget event))
                                                (let ((dlg1 (make-instance 'message-dialog
                                                        :title  "Вопрос вопросов"
                                                                          :text "Ты уверен, а вдруг из за этого погибнет ещё одна вселенная?"
                                                                          :buttons :yes-no)))
                                                  (let ((response (dialog-run dlg1)))
                                                    (object-destroy dlg1)
                                                    T))))

      (g-signal-connect Окно2 "delete-event" (lambda (widget event)
                                                (declare (ignore widget event))
                                                (let ((dlg1 (make-instance 'message-dialog
                                                        :title  "Вопрос вопросов"
                                                                          :text "Ты уверен, а вдруг из за этого погибнет ещё одна вселенная?"
                                                                          :buttons :yes-no)))
                                                  (let ((response (dialog-run dlg1)))
                                                    (object-destroy dlg1)
                                                    NIL))))