;;;; 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.5 2003/05/06 16:21:06 kevin Exp $
;;;;
;;;; This file implements the Base64 transfer encoding algorithm as
;;;; defined in RFC 1521 by Borensten & Freed, September 1993.
;;;; Permission to use with BSD-style license included in the COPYING file
;;;; *************************************************************************
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-
(in-package #:cl-base64)
+(eval-when (:compile-toplevel)
+ (declaim (optimize (space 0) (speed 3) (safety 1) (compilation-speed 0))))
+
+
(declaim (inline whitespace-p))
(defun whitespace-p (c)
"Returns T for a whitespace character."
(: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)
(: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