[bknr-cvs] edi changed trunk/thirdparty/chunga/input.lisp

[BKNR Commits]

Revision: 4213
Author: edi
URL: http://bknr.net/trac/changeset/4213

And this file as well

U   trunk/thirdparty/chunga/input.lisp

Modified: trunk/thirdparty/chunga/input.lisp
===================================================================
--- trunk/thirdparty/chunga/input.lisp	2009-02-09 14:50:22 UTC (rev 4212)
+++ trunk/thirdparty/chunga/input.lisp	2009-02-09 14:52:07 UTC (rev 4213)
@@ -54,8 +54,10 @@
                    chunk-extensions nil
                    chunk-trailers nil))
             (t (when (< input-index input-limit)
-                 (error "Not all chunks from ~S have been read completely."
-                        stream))))))
+                 (error 'parameter-error
+                        :stream stream
+                        :format-control "Not all chunks from ~S have been read completely."
+                        :format-arguments (list stream)))))))
   (setf (slot-value stream 'input-chunking-p) new-value))
 
 (defmethod stream-clear-input ((stream chunked-input-stream))
@@ -96,7 +98,10 @@
                "Reads chunk extensions \(if there are any) and stores
 them into the corresponding slot of the stream."
                (when-let (extensions (read-name-value-pairs inner-stream))
-                 (warn "Adding uninterpreted extensions to stream ~S." stream)
+                 (warn 'chunga-warning
+                       :stream stream
+                       :format-control "Adding uninterpreted extensions to stream ~S."
+                       :format-arguments (list stream))
                  (setf (slot-value stream 'chunk-extensions)
                        (append (chunked-input-stream-extensions stream) extensions)))
                (assert-crlf inner-stream))