RosettaCodeData/Task/User-input-Text/NewLISP/user-input-text.l

(print "Enter an integer: ")
(set 'x (read-line))
(print "Enter a string: ")
(set 'y (read-line))