X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=blobdiff_plain;f=package.lisp;h=e91e80da508c36bcdeaf75e90808d5c7f532f30b;hp=014cd1f58da3765554f0d8ba2c3af19d88685299;hb=e34a016ebf2a676a297b5587cdd7e1029dbc1daf;hpb=8d11e40eb06556b995b963ee7c72e59a5368d21e

diff --git a/package.lisp b/package.lisp
index 014cd1f..e91e80d 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,12 +7,10 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: package.lisp,v 1.2 2003/01/12 22:32:40 kevin Exp $
+;;;; $Id: package.lisp,v 1.5 2003/06/12 14:05:11 kevin Exp $
 ;;;;
 ;;;; *************************************************************************
 
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-
 (defpackage #:cl-base64
   (:nicknames #:base64)
   (:use #:cl)
@@ -37,6 +35,8 @@
 	   #:*uri-encode-table*
 	   #:*uri-decode-table*
 	   #:make-decode-table
+
+	   #:test-base64
 	   ))
 
 (in-package #:cl-base64)
@@ -50,7 +50,7 @@
   "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_")
 (declaim (type simple-string *uri-encode-table*))
 
-(deftype decode-table () '(array fixnum (256)))
+(deftype decode-table () '(simple-array fixnum (256)))
 
 (defun make-decode-table (encode-table)
   (let ((dt (make-array 256 :adjustable nil :fill-pointer nil