;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: June 2003
;;;;
-;;;; $Id: processes.lisp,v 1.1 2003/07/08 16:12:40 kevin Exp $
+;;;; $Id: processes.lisp,v 1.2 2003/07/09 22:12:52 kevin Exp $
;;;; *************************************************************************
(in-package #:kmrcl)
(defun make-process (name func)
- #+cmu (mp:make-process func :name name)
#+allegro (mp:process-run-function name func)
+ #+cmu (mp:make-process func :name name)
#+lispworks (mp:process-run-function name nil func)
#+sb-thread (sb-thread:make-thread func)
- #+clisp (funcall func)
+ #-(or allegro cmu lispworks sb-thread) (funcall func)
)
(defun destroy-process (process)