Rewrite entrypoint to prompt for a name, then print it

2025-02-09 12:21:47 +00:00
parent c069917170
commit e5253472a0
1 changed files with 7 additions and 1 deletions
--- 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!~%")))