diff --git a/hemlock/spell-build.lisp b/hemlock/spell-build.lisp index afd2b8afa948a579d5cc2060d1db5af1079b0242..49a92211cc2776543c21fac8bce1f8405394789a 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