Skip to content
Snippets Groups Projects
Commit f0627964 authored by wlott's avatar wlott
Browse files

Added eval-when around defconstants 'cause the values are needed at compile

time.
parent a14bdf88
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