Added ignore declaration to quiet the compiler.

src/main/entity.cl

@@ -68,6 +68,7 @@
 (defgeneric stream-entity-length (entity))
 
 (defmethod render-entity-headers :before ((e stream-entity-mixin) stream)
+  (declare (ignore stream))
   (setf (slot-value e 'content-length) (stream-entity-length e)))
 
 (defmethod render-entity-body ((entity stream-entity-mixin) stream)