Author: hhubner Date: 2006-10-23 07:10:22 -0400 (Mon, 23 Oct 2006) New Revision: 2037 Modified: branches/xml-class-rework/thirdparty/cl-qprint/base.lisp Log: Throw error if unexpected type of input passed to encode/decode. Modified: branches/xml-class-rework/thirdparty/cl-qprint/base.lisp =================================================================== --- branches/xml-class-rework/thirdparty/cl-qprint/base.lisp 2006-10-23 08:15:36 UTC (rev 2036) +++ branches/xml-class-rework/thirdparty/cl-qprint/base.lisp 2006-10-23 11:10:22 UTC (rev 2037) @@ -33,7 +33,7 @@ from INPUT and produces the equivalent decoded string" (let ((out-stream (make-string-output-stream)) (in-stream - (typecase input + (etypecase input (string (make-string-input-stream input)) (stream input)))) (do ((char (read-char in-stream nil 'eof) @@ -73,7 +73,7 @@ a quoted-printable encoded string" (let ((out-stream (make-string-output-stream)) (in-stream - (typecase input + (etypecase input (string (make-string-input-stream input)) (stream input))) (last-line-break 0)