From c93c477e664379e8212315246b85469628df06f9 Mon Sep 17 00:00:00 2001 From: David Botton Date: Thu, 9 May 2024 15:41:40 -0400 Subject: [PATCH] Show normal diconnect --- tutorial/07-tutorial.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tutorial/07-tutorial.lisp b/tutorial/07-tutorial.lisp index 916216c..f70ab0a 100644 --- a/tutorial/07-tutorial.lisp +++ b/tutorial/07-tutorial.lisp @@ -12,6 +12,7 @@ (defun on-new-window (body) (handler-case ; Disconnects from the browser can be handled gracefully using the condition system. (progn + (format t "Starting Game~%") (setf (title (html-document body)) "Tutorial 07") ;; Show a "splash" screen (setf (hiddenp (prog1 @@ -72,7 +73,8 @@ (setf mover-y 0)) (when (> mover-y bounds-y) (setf mover-y bounds-y)) - (sleep .02)))) + (sleep .02))) + (format t "Normal Disconnect~%")) (error (c) (format t "Lost connection.~%~%~A" c))))