[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1106-15-g807ed53

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  807ed53d0c5b8045904ffcc1b449483b8ffbfa0b (commit)
      from  74320af30b9c8cba649690252f48be1dc04b3ebc (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 807ed53d0c5b8045904ffcc1b449483b8ffbfa0b
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Wed Jan 4 23:24:44 2012 +0100

    load.lisp: Support clisp 2.49+ module system to load CLX.

diff --git a/ChangeLog b/ChangeLog
index 8721247..812da85 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2012-01-04  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* load.lisp: Support clisp 2.49+ module system to load CLX.
+
 2012-01-04  Ales Guzik <ales.guzik at gmail.com>
 
 	* src/clfswm-layout.lisp (update-layout-managed-children-keep-position):
diff --git a/load.lisp b/load.lisp
index e6d5299..7955af5 100644
--- a/load.lisp
+++ b/load.lisp
@@ -41,6 +41,10 @@
 #+(or CMU ECL)
 (require :clx)
 
+#+(AND CLISP (not CLX))
+(when (fboundp 'require)
+  (require "clx.lisp"))
+
 #-ASDF
 (load (make-pathname :host (pathname-host *base-dir*)
 		     :device (pathname-device *base-dir*)
diff --git a/src/clfswm-layout.lisp b/src/clfswm-layout.lisp
index fd80deb..08be39d 100644
--- a/src/clfswm-layout.lisp
+++ b/src/clfswm-layout.lisp
@@ -233,6 +233,7 @@
 
 
 (defun update-layout-managed-children-keep-position (child parent)
+  (declare (ignore child))
   (let ((managed-children (frame-data-slot parent :layout-managed-children))
 	(managed-in-parent (get-managed-child parent)))
     (dolist (ch managed-in-parent)

-----------------------------------------------------------------------

Summary of changes:
 ChangeLog              |    4 ++++
 load.lisp              |    4 ++++
 src/clfswm-layout.lisp |    1 +
 3 files changed, 9 insertions(+), 0 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager