Update domain name to kpe.io
[cl-base64.git] / package.lisp
index 014cd1f..5eac241 100644 (file)
@@ -7,37 +7,37 @@
 ;;;; 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)
   (:export #:base64-stream-to-integer
-          #:base64-string-to-integer
-          #:base64-string-to-string
-          #:base64-stream-to-string
-          #:base64-string-to-stream
-          #:base64-stream-to-stream
-          #:base64-string-to-usb8-array
-          #:base64-stream-to-usb8-array
-          #:string-to-base64-string
-          #:string-to-base64-stream
-          #:usb8-array-to-base64-string
-          #:usb8-array-to-base64-stream
-          #:stream-to-base64-string
-          #:stream-to-base64-stream
-          #:integer-to-base64-string
-          #:integer-to-base64-stream
+           #:base64-string-to-integer
+           #:base64-string-to-string
+           #:base64-stream-to-string
+           #:base64-string-to-stream
+           #:base64-stream-to-stream
+           #:base64-string-to-usb8-array
+           #:base64-stream-to-usb8-array
+           #:string-to-base64-string
+           #:string-to-base64-stream
+           #:usb8-array-to-base64-string
+           #:usb8-array-to-base64-stream
+           #:stream-to-base64-string
+           #:stream-to-base64-stream
+           #:integer-to-base64-string
+           #:integer-to-base64-stream
+
+           ;; For creating custom encode/decode tables
+           #:*uri-encode-table*
+           #:*uri-decode-table*
+           #:make-decode-table
 
-          ;; For creating custom encode/decode tables
-          #:*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
-                       :element-type 'fixnum
-                       :initial-element -1)))
+                        :element-type 'fixnum
+                        :initial-element -1)))
     (declare (type decode-table dt))
     (loop for char of-type character across encode-table
        for index of-type fixnum from 0 below 64
        do (setf (aref dt (the fixnum (char-code char))) index))
     dt))
-    
+
 (defvar *decode-table* (make-decode-table *encode-table*))
-  
+
 (defvar *uri-decode-table* (make-decode-table *uri-encode-table*))
-  
+
 (defvar *pad-char* #\=)
 (defvar *uri-pad-char* #\.)
 (declaim (type character *pad-char* *uri-pad-char*))