KMRCLを眺める(217) PROCESS-SLEEP — #:g1

Posted 2010-10-19 12:12:00 GMT

今回はKMRCLのprocesses.lispから、PROCESS-SLEEPです。
普通のSLEEPと何が違うのかなという感じですが、Allegro CLのマニュアルにあるPROCESS-SLEEPを眺める限りでは、マルチプロセス用のSLEEPのようです。

(defun process-sleep (n)
  #+allegro (mp:process-sleep n)
  #-allegro (sleep n))
ということで処理系によっては、SLEEPと変りませんが、一応…
(defun hello-sleep-3 ()
  (loop :repeat 3
        :do (princ "Hello")
            (terpri)
            (kl::process-sleep 3)))

(hello-sleep-3) ;→ Hello ;→ Hello ;→ Hello ;⇒ NIL


comments powered by Disqus