Update of /project/elephant/cvsroot/elephant/src/utils In directory clnet:/tmp/cvs-serv3086/src/utils

Modified Files: os.lisp Log Message: Fix for lispworks deadlock detect (silently fails instead of asserting an error)

--- /project/elephant/cvsroot/elephant/src/utils/os.lisp 2007/04/29 02:10:56 1.4 +++ /project/elephant/cvsroot/elephant/src/utils/os.lisp 2007/04/29 21:54:51 1.5 @@ -52,7 +52,7 @@ (in-directory (directory) (ccl:run-program program args :wait nil)) #+lispworks - (apply #'sys::call-system + (funcall #'sys::call-system (format nil "~a~{ '~a'~} &" program args) :current-directory directory :wait nil)