[bknr-cvs] r2037 - branches/xml-class-rework/thirdparty/cl-qprint

[bknr at bknr.net]

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)