Prevent current-child to be set to nil

diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index 0531d92..d529b3d 100644 (file)
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -709,7 +709,7 @@
         (return-from find-child-in-all-root root))))
 
   (defun find-current-root ()
-    (root-child (find-root (current-child))))
+    (root-child (find-root current-child)))
 
   (defun exchange-root-geometry (root-1 root-2)
     (when (and root-1 root-2)
@@ -746,9 +746,10 @@
     current-child)
 
   (defun current-child-setter (value)
-    (awhen (find-root value)
-      (setf (root-current-child it) value))
-    (setf current-child value))
+    (when value
+      (awhen (find-root value)
+        (setf (root-current-child it) value))
+      (setf current-child value)))
 
   (defmacro with-current-child ((new-child) &body body)
     "Temporarly change the current child"

diff --git a/src/version.lisp b/src/version.lisp
index 1866ea0..80d8d1d 100644 (file)
--- a/src/version.lisp
+++ b/src/version.lisp
@@ -33,4 +33,4 @@
 
 (in-package :version)
 
-(defparameter *version* #.(concatenate 'string "Version: 1209.2   built " (date-string)))
+(defparameter *version* #.(concatenate 'string "Version: 13??   built " (date-string)))