From a94a778027cf7949c8e57c4252e9c95240b57c85 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 11 Dec 1990 15:28:34 +0000 Subject: [PATCH] Put some defconstants in eval-when (compile load eval) so that subsequent defconstants that reference them won't bogue out. --- hemlock/rompsite.lisp | 28 ++++++++++++++++++++-------- 1 file changed, 20 insertions(+), 8 deletions(-) diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp index f856ff895..a4d5e6baf 100644 --- a/hemlock/rompsite.lisp +++ b/hemlock/rompsite.lisp @@ -211,21 +211,33 @@ (apply #'xlib:make-event-mask (append input/boundary-xevents-selection-keys '(: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 (apply #'xlib:make-event-mask group-interesting-xevents)) #+clx -(defconstant child-interesting-xevents - '(:key-press :button-press :button-release :structure-notify :exposure - :enter-window :leave-window)) +(eval-when (compile load eval) + (defconstant child-interesting-xevents + '(:key-press :button-press :button-release :structure-notify :exposure + :enter-window :leave-window))) + +#+clx (defconstant child-interesting-xevents-mask (apply #'xlib:make-event-mask child-interesting-xevents)) -(defconstant random-typeout-xevents - '(:key-press :button-press :button-release :enter-window :leave-window - :exposure)) +#+clx +(eval-when (compile load eval) + (defconstant random-typeout-xevents + '(:key-press :button-press :button-release :enter-window :leave-window + :exposure))) + +#+clx (defconstant random-typeout-xevents-mask (apply #'xlib:make-event-mask random-typeout-xevents)) -- GitLab