Commit 610ba9c9 authored by Daniel Kochmański's avatar Daniel Kochmański

hash: replace defconstant with defparameter

SBCL doesn't like defconstant
parent a798425c
......@@ -24,14 +24,11 @@
((probe-file "/usr/dict/words")
(read-many-lines "/usr/dict/words"))))
(defparameter +digit+ "0123456789ABCDEF")
(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant +digit+ "0123456789ABCDEF")
(defconstant +digits-needed+
#((10 100 1000 10000 100000 10000000 100000000 536870911)
(16 256 4096 65536 1048576 16777216 268435456 4294967296 536870911))))
(defparameter +digits-needed+
#((10 100 1000 10000 100000 10000000 100000000 536870911)
(16 256 4096 65536 1048576 16777216 268435456 4294967296 536870911)))
(defvar *table* nil)
......
Markdown is supported
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