Sleep: Difference between revisions
Content added Content deleted
(common lisp implementation) |
|||
| Line 47: | Line 47: | ||
return 0; |
return 0; |
||
}</cpp> |
}</cpp> |
||
=={{header|Common Lisp}}== |
|||
<pre> |
|||
(defun test-sleep () |
|||
(let ((seconds (read))) |
|||
(format t "Sleeping...~%") |
|||
(sleep seconds) |
|||
(format t "Awake!~%"))) |
|||
(test-sleep) |
|||
</pre> |
|||
=={{header|E}}== |
=={{header|E}}== |
||