projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8003: Automated commit for Debian build of kmrcl upstream-version-1.58
[kmrcl.git]
/
processes.lisp
diff --git
a/processes.lisp
b/processes.lisp
index 547b862bafcf9b195c1916034af2a5a864ac49c4..36fa3d952c10e0861386f19b4fa396777cacbc5a 100644
(file)
--- a/
processes.lisp
+++ b/
processes.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: June 2003
;;;;
;;;; 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)
;;;; *************************************************************************
(in-package #:kmrcl)
@@
-60,3
+60,7
@@
`(progn ,@body)
)
`(progn ,@body)
)
+(defun process-sleep (n)
+ #+allegro (mp:process-sleep n)
+ #-allegro (sleep n))
+