projects
/
cl-base64.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3769: Auto commit for Debian build
[cl-base64.git]
/
package.lisp
diff --git
a/package.lisp
b/package.lisp
index 014cd1f58da3765554f0d8ba2c3af19d88685299..71f6405cae780b8ca508db2a6e042ef19f485f90 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.
3 2003/01/14 11:59:44
kevin Exp $
;;;;
;;;; *************************************************************************
;;;;
;;;; *************************************************************************
@@
-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