[mcclim-cvs] CVS mcclim/Apps/Listener

[rstrandh]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory cl-net:/tmp/cvs-serv31777

Modified Files:
	util.lisp 
Log Message:
Patch to the listener from Stas Boukarev.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/util.lisp	2008/10/23 20:54:54	1.28
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/util.lisp	2009/02/24 05:43:50	1.29
@@ -135,7 +135,8 @@
                :output-stream output
                :wait wait)
   #+clisp (ext:run-program program :arguments args :wait wait)
-  #-(or CMU scl SBCL lispworks clisp)
+  #+openmcl (ccl:run-program program args :input input :output output :wait wait)
+  #-(or CMU scl SBCL lispworks clisp openmcl)
   (format t "~&Sorry, don't know how to run programs in your CL.~%"))
 
 ;;;; CLIM/UI utilities