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