[mcclim-cvs] CVS update: mcclim/Apps/Listener/util.lisp

[Bruno Haible]

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