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 @@ ...@@ -52,6 +52,8 @@
;;; for the entries uses three '(unsigned-byte 16) elements per descriptor ;;; for the entries uses three '(unsigned-byte 16) elements per descriptor
;;; unit. See the beginning of Spell-Correct.Lisp. ;;; unit. See the beginning of Spell-Correct.Lisp.
;;; ;;;
(eval-when (compile load eval)
(defconstant max-entry-count-estimate 15600) (defconstant max-entry-count-estimate 15600)
(defconstant new-dictionary-size 20011) (defconstant new-dictionary-size 20011)
...@@ -60,6 +62,7 @@ ...@@ -60,6 +62,7 @@
(defconstant max-string-table-length (* 10 max-entry-count-estimate)) (defconstant max-string-table-length (* 10 max-entry-count-estimate))
); eval-when
;;;; Hashing ;;;; 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