... | @@ -29,7 +29,7 @@ Please consider the following example wnich is hopefully self-explanatory and in |
... | @@ -29,7 +29,7 @@ Please consider the following example wnich is hopefully self-explanatory and in |
|
(bool->string (uiop:process-alive-p p5)))
|
|
(bool->string (uiop:process-alive-p p5)))
|
|
(format t "7s-sleeper still sleeping? ~a (expected: T)~%"
|
|
(format t "7s-sleeper still sleeping? ~a (expected: T)~%"
|
|
(bool->string (uiop:process-alive-p p7)))
|
|
(bool->string (uiop:process-alive-p p7)))
|
|
(format t "7s-sleeper still sleeping? ~a (expected: T)~%~%"
|
|
(format t "9s-sleeper still sleeping? ~a (expected: T)~%~%"
|
|
(bool->string (uiop:process-alive-p p9)))
|
|
(bool->string (uiop:process-alive-p p9)))
|
|
|
|
|
|
(format t "Waiting for 5s-sleeper to finish sleeping!~%")
|
|
(format t "Waiting for 5s-sleeper to finish sleeping!~%")
|
... | | ... | |