(base64-numbers): Use `eval-when-compile'.

diff --git a/mel-b.el b/mel-b.el
index deb54ff..c4a32b0 100644 (file)
--- a/mel-b.el
+++ b/mel-b.el
@@ -147,13 +147,14 @@ external decoder is called."
 ;;;
 
 (defconst base64-numbers
-  `,(let ((len (length base64-characters))
+  (eval-when-compile
+    (let ((len (length base64-characters))
          (vec (make-vector 123 nil))
          (i 0))
       (while (< i len)
        (aset vec (aref base64-characters i) i)
        (setq i (1+ i)))
-      vec))
+      vec)))
 
 (defmacro base64-char-to-num (c)
   `(aref base64-numbers ,c))