Prevent current-child to be set to nil
authorPhilippe Brochard <pbrochard@common-lisp.net>
Wed, 19 Dec 2012 21:14:27 +0000 (22:14 +0100)
committerPhilippe Brochard <pbrochard@common-lisp.net>
Wed, 19 Dec 2012 21:14:27 +0000 (22:14 +0100)
src/clfswm-internal.lisp
src/version.lisp

index 0531d92..d529b3d 100644 (file)
         (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)
     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"
index 1866ea0..80d8d1d 100644 (file)
@@ -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)))