Reading Text from the User

; Read in a line of text from the user.

(defun text-from-user ()

(format t "Enter some text: ")

(let ((user-text (read-line t)))

(format t "You entered: ~A" user-text)

'bye

) )

; T means the input comes from the keyboard.