[elephant-cvs] CVS elephant/src/utils

[ieslick]

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)