[bknr-cvs] hans changed trunk/thirdparty/chunga/

[BKNR Commits]

Revision: 4206
Author: hans
URL: http://bknr.net/trac/changeset/4206

Specialize some arguments on type T to silence CCL warnings.
U   trunk/thirdparty/chunga/input.lisp
U   trunk/thirdparty/chunga/output.lisp

Modified: trunk/thirdparty/chunga/input.lisp
===================================================================
--- trunk/thirdparty/chunga/input.lisp	2009-02-09 12:14:17 UTC (rev 4205)
+++ trunk/thirdparty/chunga/input.lisp	2009-02-09 12:15:01 UTC (rev 4206)
@@ -29,15 +29,15 @@
 
 (in-package :chunga)
 
-(defmethod chunked-input-stream-extensions (object)
+(defmethod chunked-input-stream-extensions ((object t))
   "The default method which always returns the empty list."
   nil)
 
-(defmethod chunked-input-stream-trailers (object)
+(defmethod chunked-input-stream-trailers ((object t))
   "The default method which always returns the empty list."
   nil)
 
-(defmethod chunked-stream-input-chunking-p (object)
+(defmethod chunked-stream-input-chunking-p ((object t))
   "The default method for all objects which are not of type
 CHUNKED-INPUT-STREAM."
   nil)

Modified: trunk/thirdparty/chunga/output.lisp
===================================================================
--- trunk/thirdparty/chunga/output.lisp	2009-02-09 12:14:17 UTC (rev 4205)
+++ trunk/thirdparty/chunga/output.lisp	2009-02-09 12:15:01 UTC (rev 4206)
@@ -29,7 +29,7 @@
 
 (in-package :chunga)
 
-(defmethod chunked-stream-output-chunking-p (object)
+(defmethod chunked-stream-output-chunking-p ((object t))
   "The default method for all objects which are not of type
 CHUNKED-OUTPUT-STREAM."
   nil)