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

[Philippe Brochard]

Author: pbrochard
Date: Sat Oct  2 11:56:54 2010
New Revision: 341

Log:
src/clfswm-util.lisp (bind-on-slot): Add an optional parameter to bind the current child from the configuration file.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-util.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sat Oct  2 11:56:54 2010
@@ -1,3 +1,8 @@
+2010-10-02  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
+	to bind the current child from the configuration file.
+
 2010-10-01  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Sat Oct  2 11:56:54 2010
@@ -693,9 +693,9 @@
 ;;;  Bind or jump functions
 (let ((key-slots (make-array 10 :initial-element nil))
       (current-slot 1))
-  (defun bind-on-slot ()
+  (defun bind-on-slot (&optional (slot current-slot))
     "Bind current child to slot"
-    (setf (aref key-slots current-slot) *current-child*))
+    (setf (aref key-slots slot) *current-child*))
 
   (defun remove-binding-on-slot ()
     "Remove binding on slot"