Rewrite entrypoint to prompt for a name, then print it

1 files changed, 7 insertions, 1 deletions

diff --git a/main.lisp b/main.lisp
index 4b3a544..187e771 100644
--- a/main.lisp
+++ b/main.lisp
@@ -20,5 +20,11 @@
 
 (in-package :main)
 
+(defun read-input (&optional (prompt "> "))
+  (format t "~a" prompt)
+  (force-output)
+  (read-line))
+
 (defun start ()
-  (format t "Hello, world!"))
+  (->> (read-input "Enter name: ")
+       (format t "Hello, ~a!~%")))