X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=blobdiff_plain;f=decode.lisp;h=fe47871205486e69e821689baf23443d25edfc08;hp=d1e9ed3be1d4c5583ab0291f92119640dc2e0203;hb=a77fb6c8e7a3ac36bc8637e54fbb8352937814bf;hpb=b8e5576d559d94e4f8cf69da074317bb0ab91195

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