X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=blobdiff_plain;f=base64.lisp;h=50721029744a7a9e19ef79c0d7ba5c6d2d807f0f;hp=f329223419e15d07d1716bd1649c8671562fc9c4;hb=39e28cb26ce28f9a69fa366ef9c2f0d6e5afbe23;hpb=64455dcb0317949fd476297aec2c1cf7cd046fe3

diff --git a/base64.lisp b/base64.lisp
index f329223..5072102 100644
--- 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."