From d22c70be415a7a73bb19e6d882352655abbcaa59 Mon Sep 17 00:00:00 2001
From: Logen Kain <logen@sudotask.com>
Date: Fri, 9 Oct 2020 23:54:07 -0400
Subject: [PATCH] Fix format example

---
 tktest/tk-test.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tktest/tk-test.lisp b/tktest/tk-test.lisp
index 658f723..bbba52c 100644
--- a/tktest/tk-test.lisp
+++ b/tktest/tk-test.lisp
@@ -27,11 +27,12 @@
 								  :command (lambda ()
 											 (echo-durr))))
 		  ;; Format doesn't seem to work until the gui ends
+		  ;; Turns out we need to add ~%
 		  (button3 (make-instance 'button
 								  :text "try format"
 								  :command (lambda ()
-											 (format *standard-output*
-													 "hi"))))
+											 (format t
+													 "hi~%"))))
 		  (scroller (make-instance 'scrollbar
 								   )))
 	  (grid button 0 0)