From a4193755e86556fad2edc5bbf51489bcea2fc7d2 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 9 Nov 1990 22:50:11 +0000
Subject: [PATCH] Added an eval-when (compile load eval) around some
 defconstants, 'cause their value is needed at compile time. ,

---
 hemlock/bit-screen.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/hemlock/bit-screen.lisp b/hemlock/bit-screen.lisp
index c6fa137d4..343724885 100644
--- a/hemlock/bit-screen.lisp
+++ b/hemlock/bit-screen.lisp
@@ -650,9 +650,13 @@
 (defconstant minimum-window-columns 8
   "Windows must be at least this many characters wide.")
 
+(eval-when (compile load eval)
+
 (defconstant xwindow-border-width 2 "X border around X windows")
 (defconstant xwindow-border-width*2 (* xwindow-border-width 2))
 
+); eval-when
+
 ;;; We must name windows (set the "name" property) to get around a bug in
 ;;; awm and twm.  They will not handle menu clicks without a window having
 ;;; a name.  We set the name to this silly thing.
-- 
GitLab