@@ -1,15 +1,17 @@

 ; --*- Mode: lisp -*--

 (in-package :stumpwm)

-(defvar *selection-search-map* nil "selection search map")

-(defvar *search-map* nil "search map")

+(eval-when (:load-toplevel :compile-toplevel :execute)

+  (defvar *selection-search-map* nil "selection search map")

+  (defvar *search-map* nil "search map"))

-#+devtime

+;;#+devtime

 (progn

   (setf *window-format* "%s%m%n: %15t")

   (setf *window-format-by-class* "%m%n %c %s%92t"))

-#-devtime

+;;#-devtime

+#+(or)

 (eval-when (:load-toplevel :compile-toplevel :execute)

   (load-module "stumptray"))

@@ -18,6 +20,7 @@

   (progn 

     (set-prefix-key (kbd "s-space"))

     (mode-line)

+    #+(or)

     (stumptray:stumptray)

     (fill-keymap *selection-search-map*