From: morioka <morioka>
Date: Thu, 8 Oct 1998 23:34:13 +0000 (+0000)
Subject: (base64-numbers): Use `eval-when-compile'.
X-Git-Tag: flim-1_10_3~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0e0bccbfdd5bbfbb95a49075ac21a67752e3d0da;p=elisp%2Fflim.git

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

diff --git a/mel-b.el b/mel-b.el
index deb54ff..c4a32b0 100644
--- 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))