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)
