7 lines
140 B
Common Lisp
7 lines
140 B
Common Lisp
(defun test-sleep ()
|
|
(let ((seconds (read)))
|
|
(format t "Sleeping...~%")
|
|
(sleep seconds)
|
|
(format t "Awake!~%")))
|
|
|
|
(test-sleep)
|