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