Added ignore declaration to quiet the compiler.
This commit is contained in:
@ -68,6 +68,7 @@
|
|||||||
(defgeneric stream-entity-length (entity))
|
(defgeneric stream-entity-length (entity))
|
||||||
|
|
||||||
(defmethod render-entity-headers :before ((e stream-entity-mixin) stream)
|
(defmethod render-entity-headers :before ((e stream-entity-mixin) stream)
|
||||||
|
(declare (ignore stream))
|
||||||
(setf (slot-value e 'content-length) (stream-entity-length e)))
|
(setf (slot-value e 'content-length) (stream-entity-length e)))
|
||||||
|
|
||||||
(defmethod render-entity-body ((entity stream-entity-mixin) stream)
|
(defmethod render-entity-body ((entity stream-entity-mixin) stream)
|
||||||
|
|||||||
Reference in New Issue
Block a user