[bknr-cvs] r2505 - branches/trunk-reorg/thirdparty/chunga-0.4.1

[hhubner at common-lisp.net]

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