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