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))