From a77fb6c8e7a3ac36bc8637e54fbb8352937814bf Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 14 Jan 2003 11:59:44 +0000
Subject: [PATCH] r3769: Auto commit for Debian build

---
 debian/changelog |  7 +++++++
 decode.lisp      |  6 +++---
 encode.lisp      | 27 ++++++++++++++++-----------
 package.lisp     |  4 ++--
 4 files changed, 28 insertions(+), 16 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index b25f4f0..83f78ca 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+cl-base64 (3.0.1-2) unstable; urgency=low
+
+  * Change declarations from array to simple-array where feasible
+  * add more fixnum declarations where helpful
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 14 Jan 2003 04:55:48 -0700
+
 cl-base64 (3.0.1-1) unstable; urgency=low
 
   * Fix output of base64-string-to-usb8-array
diff --git a/decode.lisp b/decode.lisp
index d1e9ed3..fe47871 100644
--- a/decode.lisp
+++ b/decode.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: decode.lisp,v 1.3 2003/01/14 11:43:10 kevin Exp $
+;;;; $Id: decode.lisp,v 1.4 2003/01/14 11:59:44 kevin Exp $
 ;;;;
 ;;;; This file implements the Base64 transfer encoding algorithm as
 ;;;; defined in RFC 1521 by Borensten & Freed, September 1993.
@@ -61,7 +61,7 @@
 			  (:string
 			   '((simple-string result)))
 			  (:usb8-array
-			   '((type (array (usigned-byte 8) (*)) result))))
+			   '((type (simple-array (usigned-byte 8) (*)) result))))
 		  (fixnum ridx))
 	 (do* ((bitstore 0)
 	       (bitcount 0)
@@ -146,7 +146,7 @@
 			  (:string
 			   '((simple-string result)))
 			  (:usb8-array
-			   '((type (array (unsigned-byte 8) (*)) result))))
+			   '((type (simple-array (unsigned-byte 8) (*)) result))))
 		  (fixnum ridx))
 	 (loop 
 	    for char of-type character across input
diff --git a/encode.lisp b/encode.lisp
index 4bca7a3..f3791aa 100644
--- a/encode.lisp
+++ b/encode.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: encode.lisp,v 1.4 2003/01/14 11:43:10 kevin Exp $
+;;;; $Id: encode.lisp,v 1.5 2003/01/14 11:59:44 kevin Exp $
 ;;;;
 ;;;; This file implements the Base64 transfer encoding algorithm as
 ;;;; defined in RFC 1521 by Borensten & Freed, September 1993.
@@ -28,7 +28,7 @@
 ;;;;   - Renamed functions now that supporting integer conversions
 ;;;;   - URI-compatible encoding using :uri key
 ;;;;
-;;;; $Id: encode.lisp,v 1.4 2003/01/14 11:43:10 kevin Exp $
+;;;; $Id: encode.lisp,v 1.5 2003/01/14 11:59:44 kevin Exp $
 
 (in-package #:cl-base64)
 
@@ -81,7 +81,7 @@ with a #\Newline."
 			(ioutput 0)))
 	      (col (if (plusp columns)
 		       0
-		       (1+ padded-length))))
+		       (the fixnum (1+ padded-length)))))
 	 (declare (fixnum string-length padded-length col
 			  ,@(when (eq output-type :string)
 				  '(ioutput)))
@@ -129,8 +129,8 @@ with a #\Newline."
 			       (the fixnum
 				 (logand #x3f svalue))))
 		       (output-char pad))))
-	(do ((igroup 0 (1+ igroup))
-	     (isource 0 (+ isource 3)))
+	(do ((igroup 0 (the fixnum (1+ igroup)))
+	     (isource 0 (the fixnum (+ isource 3))))
 	    ((= igroup complete-group-count)
 	     (cond
 	       ((= remainder 2)
@@ -149,9 +149,11 @@ with a #\Newline."
 			(ash
 			 ,(case input-type
 				(:string
-				 '(char-code (the character (char input (1+ isource)))))
+				 '(char-code (the character (char input
+								  (the fixnum (1+ isource))))))
 				(:usb8-array
-				 '(the fixnum (aref input (1+ isource)))))
+				 '(the fixnum (aref input (the fixnum
+							    (1+ isource))))))
 			 8))))
 		 3))
 	       ((= remainder 1)
@@ -188,14 +190,16 @@ with a #\Newline."
 		 (the fixnum
 		   ,(case input-type
 			  (:string
-			   '(char-code (the character (char input (1+ isource)))))
+			   '(char-code (the character (char input
+							    (the fixnum (1+ isource))))))
 			(:usb8-array
 			 '(aref input (1+ isource)))))
 		 8))
 	      (the fixnum
 		,(case input-type
 		       (:string
-			'(char-code (the character (char input (+ 2 isource)))))
+			'(char-code (the character (char input
+							 (the fixnum (+ 2 isource))))))
 		       (:usb8-array
 			'(aref input (+ 2 isource))))
 		)))
@@ -289,9 +293,10 @@ with a #\Newline."
 	   (last-nonpad-char (1- nonpad-chars))
 	   (str (make-string strlen)))
       (declare (fixnum padded-length last-nonpad-char))
-      (do* ((strpos 0 (1+ strpos))
+      (do* ((strpos 0 (the fixnum (1+ strpos)))
 	    (int (ash input (/ padding-bits 3)) (ash int -6))
-	    (6bit-value (logand int #x3f) (logand int #x3f)))
+	    (6bit-value (the fixnum (logand int #x3f))
+			(the fixnum (logand int #x3f))))
 	   ((= strpos nonpad-chars)
 	    (let ((col 0))
 	      (declare (fixnum col))
diff --git a/package.lisp b/package.lisp
index 014cd1f..71f6405 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; 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*))
 
-(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
-- 
GitLab