Commit 3972a473 authored by wlott's avatar wlott
Browse files

This commit was generated by cvs2svn to compensate for changes in r2378,

which included commits to RCS files with non-trunk default branches.
parents 2b7e7809 f0627964
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment