10 lines
245 B
Common Lisp
10 lines
245 B
Common Lisp
|
(format t "Enter some text: ")
|
||
|
|
(let ((s (read-line)))
|
||
|
|
(format t "You entered ~s~%" s))
|
||
|
|
|
||
|
|
(format t "Enter a number: ")
|
||
|
|
(let ((n (read)))
|
||
|
|
(if (numberp n)
|
||
|
|
(format t "You entered ~d.~%" n)
|
||
|
|
(format t "That was not a number.")))
|