projects
/
cl-base64.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10943: fix package description spelling mistake
[cl-base64.git]
/
package.lisp
diff --git
a/package.lisp
b/package.lisp
index 014cd1f58da3765554f0d8ba2c3af19d88685299..6f4fa2c9c7bce0390655b44331c9556551ff4303 100644
(file)
--- a/
package.lisp
+++ b/
package.lisp
@@
-7,12
+7,10
@@
;;;; 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$
;;;;
;;;; *************************************************************************
;;;;
;;;; *************************************************************************
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-
(defpackage #:cl-base64
(:nicknames #:base64)
(:use #:cl)
(defpackage #:cl-base64
(:nicknames #:base64)
(:use #:cl)
@@
-37,6
+35,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
+50,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