From 0e0bccbfdd5bbfbb95a49075ac21a67752e3d0da Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 8 Oct 1998 23:34:13 +0000 Subject: [PATCH] (base64-numbers): Use `eval-when-compile'. --- mel-b.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4