From f0627964cadd3d94aee0c57c7151002a6e3f723b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 9 Nov 1990 23:34:48 +0000
Subject: [PATCH] Added eval-when around defconstants 'cause the values are
 needed at compile time.

---
 hemlock/spell-build.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/hemlock/spell-build.lisp b/hemlock/spell-build.lisp
index afd2b8afa..49a92211c 100644
--- a/hemlock/spell-build.lisp
+++ b/hemlock/spell-build.lisp
@@ -52,6 +52,8 @@
 ;;; for the entries uses three '(unsigned-byte 16) elements per descriptor
 ;;; unit.  See the beginning of Spell-Correct.Lisp.
 ;;;
+(eval-when (compile load eval)
+
 (defconstant max-entry-count-estimate 15600)
 
 (defconstant new-dictionary-size 20011)
@@ -60,6 +62,7 @@
 
 (defconstant max-string-table-length (* 10 max-entry-count-estimate))
 
+); eval-when
 
 
 ;;;; Hashing
-- 
GitLab