From e5253472a01fb94233561edf6cadcc86d56767af Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Sun, 9 Feb 2025 12:21:47 +0000 Subject: Rewrite entrypoint to prompt for a name, then print it --- main.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'main.lisp') 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!~%"))) -- cgit v1.2.3-13-gbd6f