[s-xml-rpc-cvs] CVS update: s-xml-rpc/src/base64.lisp

[Sven Van Caekenberghe]

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src
In directory common-lisp.net:/tmp/cvs-serv16037/src

Modified Files:
	base64.lisp 
Log Message:
fixed a (memory) performance issue: +inverse-base64-alphabet+ was way too big

Date: Mon Feb  7 18:45:43 2005
Author: scaekenberghe

Index: s-xml-rpc/src/base64.lisp
diff -u s-xml-rpc/src/base64.lisp:1.2 s-xml-rpc/src/base64.lisp:1.3
--- s-xml-rpc/src/base64.lisp:1.2	Sat Jan 22 23:18:15 2005
+++ s-xml-rpc/src/base64.lisp	Mon Feb  7 18:45:41 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: base64.lisp,v 1.2 2005/01/22 22:18:15 scaekenberghe Exp $
+;;;; $Id: base64.lisp,v 1.3 2005/02/07 17:45:41 scaekenberghe Exp $
 ;;;;
 ;;;; This is a Common Lisp implementation of Base64 encoding and decoding.
 ;;;;
@@ -25,8 +25,8 @@
   "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/")
 
 (defparameter +inverse-base64-alphabet+
-  (let ((inverse-base64-alphabet (make-array char-code-limit)))
-    (dotimes (i char-code-limit inverse-base64-alphabet)
+  (let ((inverse-base64-alphabet (make-array 127)))
+    (dotimes (i 127 inverse-base64-alphabet)
       (setf (aref inverse-base64-alphabet i)
 	    (position (code-char i) +base64-alphabet+)))))