;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: June 2003
;;;;
-;;;; $Id: processes.lisp,v 1.3 2003/07/11 02:37:33 kevin Exp $
+;;;; $Id$
;;;; *************************************************************************
(in-package #:kmrcl)
`(progn ,@body)
)
+(defun process-sleep (n)
+ #+allegro (mp:process-sleep n)
+ #-allegro (sleep n))
+