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