projects
/
cl-base64.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r4496: 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
;;;;
;;;; 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
#:*uri-encode-table*
#:*uri-decode-table*
#:make-decode-table
+
+ #:test-base64
))
(in-package #:cl-base64)
))
(in-package #:cl-base64)
@@
-50,7
+52,7
@@
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_")
(declaim (type simple-string *uri-encode-table*))
"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
(defun make-decode-table (encode-table)
(let ((dt (make-array 256 :adjustable nil :fill-pointer nil