[clfswm-cvs] r221 - in clfswm: . src

[Philippe Brochard]

Author: pbrochard
Date: Tue May  5 17:48:08 2009
New Revision: 221

Log:
Add support for Clozure Common Lisp (CCL)

Modified:
   clfswm/ChangeLog
   clfswm/src/tools.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Tue May  5 17:48:08 2009
@@ -1,5 +1,7 @@
 2009-05-05  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/*.lisp: Add support for Clozure Common Lisp (CCL).
+
 	* src/clfswm-circulate-mode.lisp (reorder-child)
 	(reorder-brother): Reinitialise on circulate type change
 	child to brother or brother to child.

Modified: clfswm/src/tools.lisp
==============================================================================
--- clfswm/src/tools.lisp	(original)
+++ clfswm/src/tools.lisp	Tue May  5 17:48:08 2009
@@ -459,10 +459,10 @@
   #+gcl (si:getenv (string var))
   #+lispworks (lw:environment-variable (string var))
   #+lucid (lcl:environment-variable (string var))
-  #+mcl (ccl::getenv var)
+  #+(or mcl ccl) (ccl::getenv var)
   #+sbcl (sb-posix:getenv (string var))
   #+ecl (si:getenv (string var))
-  #-(or allegro clisp cmu gcl lispworks lucid mcl sbcl scl ecl)
+  #-(or allegro clisp cmu gcl lispworks lucid mcl sbcl scl ecl ccl)
   (error 'not-implemented :proc (list 'getenv var)))
 
 
@@ -482,7 +482,8 @@
   #+lucid (setf (lcl:environment-variable (string var)) (string val))
   #+sbcl (sb-posix:putenv (format nil "~A=~A" (string var) (string val)))
   #+ecl (si:setenv (string var) (string val))
-  #-(or allegro clisp cmu gcl lispworks lucid sbcl scl ecl)
+  #+ccl (ccl::setenv (string var) (string val))
+  #-(or allegro clisp cmu gcl lispworks lucid sbcl scl ecl ccl)
   (error 'not-implemented :proc (list '(setf getenv) var)))
 
 
@@ -497,7 +498,8 @@
   #+ecl (si:quit)
   #+gcl (lisp:quit)
   #+lispworks (lw:quit)
-  #+(or allegro-cl allegro-cl-trial) (excl:exit))
+  #+(or allegro-cl allegro-cl-trial) (excl:exit)
+  #+ccl (ccl:quit))
 
 
 
@@ -537,7 +539,8 @@
   #+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)
   #+ecl (apply #'ext:run-program prog args opts)
-  #-(or allegro clisp cmu gcl liquid lispworks lucid sbcl ecl)
+  #+ccl (applay #'ccl:run-program prog args opts :wait wait)
+  #-(or allegro clisp cmu gcl liquid lispworks lucid sbcl ecl ccl)
   (error 'not-implemented :proc (list 'run-prog prog opts)))