;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: package.lisp,v 1.2 2003/01/12 22:32:40 kevin Exp $
+;;;; $Id$
;;;;
;;;; *************************************************************************
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-
(defpackage #:cl-base64
(:nicknames #:base64)
(:use #:cl)
#:*uri-encode-table*
#:*uri-decode-table*
#:make-decode-table
+
+ #:test-base64
))
(in-package #:cl-base64)
"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