[clfswm-cvs] r297 - in clfswm: . contrib/server

[Philippe Brochard]

Author: pbrochard
Date: Tue Aug 17 17:27:18 2010
New Revision: 297

Log:
contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.

Modified:
   clfswm/ChangeLog
   clfswm/contrib/server/key.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Tue Aug 17 17:27:18 2010
@@ -1,5 +1,7 @@
 2010-08-17  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* contrib/server/key.lisp (ushell-sh): Add ccl and ecl support.
+
 	* src/xlib-util.lisp (compress-motion-notify): Use a loop instead
 	of an event-case.
 

Modified: clfswm/contrib/server/key.lisp
==============================================================================
--- clfswm/contrib/server/key.lisp	(original)
+++ clfswm/contrib/server/key.lisp	Tue Aug 17 17:27:18 2010
@@ -12,6 +12,8 @@
 (defparameter *final-key-perms* "0400")
 
 
+
+
 (defun ushell-sh (formatter &rest args)
   (labels ((remove-plist (plist &rest keys)
 	     "Remove the keys from the plist.
@@ -43,8 +45,10 @@
 				opts)
 	     #+lucid (apply #'lcl:run-program prog :wait wait :arguments args opts)
 	     #+sbcl (apply #'sb-ext:run-program prog args :wait wait :output *standard-output* opts)
-	     #-(or allegro clisp cmu gcl liquid lispworks lucid sbcl)
-	     (error 'not-implemented :proc (list 'run-prog prog opts))))
+	     #+ecl (apply #'ext:run-program prog args opts)
+	     #+ccl (apply #'ccl:run-program prog args opts)
+	     #-(or allegro clisp cmu gcl liquid lispworks lucid sbcl ccl ecl)
+	     (error "Error: urun-prog not implemented")))
     (urun-prog "/bin/sh" :args (list "-c" (apply #'format nil formatter args)))))