Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory common-lisp.net:/tmp/cvs-serv26814/Apps/Listener

Modified Files: util.lisp Log Message: (getenv, change-directory, run-program): Add support for CLISP.

Date: Mon Dec 20 16:46:49 2004 Author: bhaible

Index: mcclim/Apps/Listener/util.lisp diff -u mcclim/Apps/Listener/util.lisp:1.14 mcclim/Apps/Listener/util.lisp:1.15 --- mcclim/Apps/Listener/util.lisp:1.14 Fri Jul 23 14:36:45 2004 +++ mcclim/Apps/Listener/util.lisp Mon Dec 20 16:46:49 2004 @@ -64,12 +64,14 @@ #+sbcl (sb-ext:posix-getenv var) #+lispworks (lw:environment-variable var) #+openmcl (ccl::getenv var) + #+clisp (ext:getenv var) nil))

;; Need to strip filename/type/version from directory?.. FIXME? (defun change-directory (pathname) "Ensure that the current directory seen by RUN-PROGRAM has changed, and update *default-pathname-defaults*" #+CMU (unix:unix-chdir (namestring pathname)) + #+clisp (ext:cd pathname) ; SBCL FIXME? (setf *default-pathname-defaults* pathname))

@@ -154,8 +156,9 @@ :shell-type "/bin/sh" :output-stream output :wait wait) + #+clisp (ext:run-program program :arguments args :wait wait)

- #-(or CMU SBCL lispworks) + #-(or CMU SBCL lispworks clisp) (format T "~&Sorry, don't know how to run programs in your CL.~%"))

;;;; CLIM/UI utilities