Author: hhubner Date: Fri Feb 15 11:36:25 2008 New Revision: 2505 Modified: branches/trunk-reorg/thirdparty/chunga-0.4.1/input.lisp branches/trunk-reorg/thirdparty/chunga-0.4.1/output.lisp Log: Fix CCL warnings Modified: branches/trunk-reorg/thirdparty/chunga-0.4.1/input.lisp ============================================================================== --- branches/trunk-reorg/thirdparty/chunga-0.4.1/input.lisp (original) +++ branches/trunk-reorg/thirdparty/chunga-0.4.1/input.lisp Fri Feb 15 11:36:25 2008 @@ -31,15 +31,18 @@ (defmethod chunked-input-stream-extensions (object) "The default method which always returns the empty list." + (declare (ignore object)) nil) (defmethod chunked-input-stream-trailers (object) "The default method which always returns the empty list." + (declare (ignore object)) nil) (defmethod chunked-stream-input-chunking-p (object) "The default method for all objects which are not of type CHUNKED-INPUT-STREAM." + (declare (ignore object)) nil) (defmethod (setf chunked-stream-input-chunking-p) (new-value (stream chunked-input-stream)) Modified: branches/trunk-reorg/thirdparty/chunga-0.4.1/output.lisp ============================================================================== --- branches/trunk-reorg/thirdparty/chunga-0.4.1/output.lisp (original) +++ branches/trunk-reorg/thirdparty/chunga-0.4.1/output.lisp Fri Feb 15 11:36:25 2008 @@ -32,6 +32,7 @@ (defmethod chunked-stream-output-chunking-p (object) "The default method for all objects which are not of type CHUNKED-OUTPUT-STREAM." + (declare (ignore object)) nil) (defmethod write-chunk ((stream chunked-output-stream) sequence