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)