r3686: *** empty log message ***

[cl-base64.git] / base64.lisp

diff --git a/base64.lisp b/base64.lisp
index f329223419e15d07d1716bd1649c8671562fc9c4..50721029744a7a9e19ef79c0d7ba5c6d2d807f0f 100644 (file)
--- a/base64.lisp
+++ b/base64.lisp
@@ -14,7 +14,7 @@
 ;;;; Copyright 2002-2003 Kevin M. Rosenberg
 ;;;; Permission to use with BSD-style license included in the COPYING file
 ;;;;
-;;;; $Id: base64.lisp,v 1.1 2002/12/29 06:08:15 kevin Exp $
+;;;; $Id: base64.lisp,v 1.2 2002/12/29 06:11:24 kevin Exp $
 
 (defpackage #:base64
   (:use #:cl)
@@ -24,17 +24,17 @@
 (in-package #:base64)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (defparameter *encode-table*
+  (defvar *encode-table*
     "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/")
   (declaim (type simple-string *encode-table*))
   
-  (defparameter *uri-encode-table*
+  (defvar *uri-encode-table*
     "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_")
   (declaim (type simple-string *uri-encode-table*))
   
   (deftype decode-table () '(simple-array fixnum (256)))
 
-  (defparameter *decode-table*
+  (defvar *decode-table*
     (let ((da (make-array 256 :adjustable nil :fill-pointer nil
                          :element-type 'fixnum
                          :initial-element -1)))
@@ -43,7 +43,7 @@
            do (setf (aref da (the fixnum (char-code char))) index))
       da))
   
-  (defparameter *uri-decode-table*
+  (defvar *uri-decode-table*
     (let ((da (make-array 256 :adjustable nil :fill-pointer nil
                          :element-type 'fixnum
                          :initial-element -1)))
@@ -55,8 +55,10 @@
   
   (declaim (type decode-table *decode-table* *uri-decode-table*))
   
-  (defparameter *pad-char* #\=)
-  (defparameter *uri-pad-char* #\.))
+  (defvar *pad-char* #\=)
+  (defvar *uri-pad-char* #\.)
+  (declaim (type character *pad-char* *uri-pad-char*))
+  )
 
 (defun string-to-base64 (string &key (uri nil))
   "Encode a string array to base64."