r4492: Auto commit for Debian build

[cl-base64.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index 014cd1f58da3765554f0d8ba2c3af19d88685299..fca5cd21baa25b1b30412b7ba6c02a92efc69989 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; 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.4 2003/04/15 16:05:39 kevin Exp $
 ;;;;
 ;;;; *************************************************************************
 
@@ -37,6 +37,8 @@
           #:*uri-encode-table*
           #:*uri-decode-table*
           #:make-decode-table
+
+          #:test-base64
           ))
 
 (in-package #:cl-base64)
@@ -50,7 +52,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