Skip to content
Snippets Groups Projects
Commit b4a2c6b3 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

processes: check if timeout is a number, othwerwise call without it

parent ac577a3a
No related branches found
No related tags found
No related merge requests found
......@@ -219,8 +219,9 @@
(process-yield)))
(defun process-wait-with-timeout (reason timeout predicate)
(bt:with-timeout (timeout)
(process-wait reason predicate)))
(if (numberp timeout)
(bt:with-timeout (timeout) (process-wait reason predicate))
(process-wait reason predicate)))
(defun process-interrupt (process function)
(declare #+CCL-2 (ignore process))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment