Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment