[elephant-cvs] CVS elephant/src/utils

[ieslick]

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

Modified Files:
	os.lisp 
Log Message:
Fixes for lispworks in tests & deadlock detect; fixes for openmcl in pointer manipulation

--- /project/elephant/cvsroot/elephant/src/utils/os.lisp	2007/04/12 02:47:51	1.3
+++ /project/elephant/cvsroot/elephant/src/utils/os.lisp	2007/04/29 02:10:56	1.4
@@ -53,7 +53,7 @@
     (ccl:run-program program args :wait nil))
   #+lispworks
   (apply #'sys::call-system
-	 (format nil "~a~{ '~a'~}~@[ &~]" prog args)
+	 (format nil "~a~{ '~a'~} &" program args)
 	 :current-directory directory
 	 :wait nil)
   )