Skip to content
Snippets Groups Projects
Commit a94a7780 authored by ram's avatar ram
Browse files

Put some defconstants in eval-when (compile load eval) so that subsequent

defconstants that reference them won't bogue out.
parent 14264336
No related branches found
No related tags found
No related merge requests found
...@@ -211,21 +211,33 @@ ...@@ -211,21 +211,33 @@
(apply #'xlib:make-event-mask (apply #'xlib:make-event-mask
(append input/boundary-xevents-selection-keys (append input/boundary-xevents-selection-keys
'(:exposure :structure-notify)))) '(:exposure :structure-notify))))
(defconstant group-interesting-xevents
'(:structure-notify)) #+clx
(eval-when (compile load eval)
(defconstant group-interesting-xevents
'(:structure-notify)))
#+clx
(defconstant group-interesting-xevents-mask (defconstant group-interesting-xevents-mask
(apply #'xlib:make-event-mask group-interesting-xevents)) (apply #'xlib:make-event-mask group-interesting-xevents))
#+clx #+clx
(defconstant child-interesting-xevents (eval-when (compile load eval)
'(:key-press :button-press :button-release :structure-notify :exposure (defconstant child-interesting-xevents
:enter-window :leave-window)) '(:key-press :button-press :button-release :structure-notify :exposure
:enter-window :leave-window)))
#+clx
(defconstant child-interesting-xevents-mask (defconstant child-interesting-xevents-mask
(apply #'xlib:make-event-mask child-interesting-xevents)) (apply #'xlib:make-event-mask child-interesting-xevents))
(defconstant random-typeout-xevents #+clx
'(:key-press :button-press :button-release :enter-window :leave-window (eval-when (compile load eval)
:exposure)) (defconstant random-typeout-xevents
'(:key-press :button-press :button-release :enter-window :leave-window
:exposure)))
#+clx
(defconstant random-typeout-xevents-mask (defconstant random-typeout-xevents-mask
(apply #'xlib:make-event-mask random-typeout-xevents)) (apply #'xlib:make-event-mask random-typeout-xevents))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment