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