[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-serv16641/src

Modified Files:
	base64.lisp 
Log Message:
improved error message text ;-)

Date: Sat Jan 22 14:18:18 2005
Author: scaekenberghe

Index: s-xml-rpc/src/base64.lisp
diff -u s-xml-rpc/src/base64.lisp:1.1.1.1 s-xml-rpc/src/base64.lisp:1.2
--- s-xml-rpc/src/base64.lisp:1.1.1.1	Wed Jun  9 02:02:39 2004
+++ s-xml-rpc/src/base64.lisp	Sat Jan 22 14:18:15 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: base64.lisp,v 1.1.1.1 2004/06/09 09:02:39 scaekenberghe Exp $
+;;;; $Id: base64.lisp,v 1.2 2005/01/22 22:18:15 scaekenberghe Exp $
 ;;;;
 ;;;; This is a Common Lisp implementation of Base64 encoding and decoding.
 ;;;;
@@ -70,7 +70,7 @@
 	   (in3 (read-char stream nil nil))
 	   (in4 (read-char stream nil nil)))
        (if (null in1) (return))
-       (if (or (null in2) (null in3) (null in4)) (error "input not aligned/padded")) 
+       (if (or (null in2) (null in3) (null in4)) (error "input not aligned/padded for base64 encoding")) 
        (multiple-value-bind (out1 out2 out3)
 	   (core-decode-base64 in1
 			       in2
@@ -123,7 +123,7 @@
 	 (in3 (read-char in nil nil))
 	 (in4 (read-char in nil nil)))
      (if (null in1) (return))
-     (if (or (null in2) (null in3) (null in4)) (error "input not aligned/padded")) 
+     (if (or (null in2) (null in3) (null in4)) (error "input not aligned/padded for base64 encoding")) 
      (multiple-value-bind (out1 out2 out3)
 	 (core-decode-base64 in1 in2 (if (char= in3 #\=) #\A in3) (if (char= in4 #\=) #\A in4))
        (write-byte out1 out)