X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=blobdiff_plain;f=package.lisp;h=5eac24111e5430a80ac41ebf410d46356def62a3;hp=fca5cd21baa25b1b30412b7ba6c02a92efc69989;hb=27bc69eefd00a991928ca3c3c988ba9adc23ce9b;hpb=016124a5823f8dd681956e02510fc0bf485b1aaf diff --git a/package.lisp b/package.lisp index fca5cd2..5eac241 100644 --- a/package.lisp +++ b/package.lisp @@ -7,39 +7,37 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Dec 2002 ;;;; -;;;; $Id: package.lisp,v 1.4 2003/04/15 16:05:39 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 - )) + #:test-base64 + )) (in-package #:cl-base64) @@ -56,18 +54,18 @@ (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*))