From f29dd3319e732d27a7a4f9eb6956f0fd0bf0d3e3 Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Wed, 7 Feb 2001 14:08:09 +0000 Subject: [PATCH] Slight optimization of entity rendering. --- src/main/entity.cl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/main/entity.cl b/src/main/entity.cl index 3b6045f..993bf49 100644 --- a/src/main/entity.cl +++ b/src/main/entity.cl @@ -72,9 +72,11 @@ (setf (slot-value e 'content-length) (stream-entity-length e))) (defmethod render-entity-body ((entity stream-entity-mixin) stream) + (declare (type stream stream)) (with-open-stream (in-stream (stream-entity-stream entity)) + (declare (type stream in-stream)) (with-io-buffer (buffer) - (loop for length = (read-sequence buffer in-stream) + (loop for length of-type fixnum = (read-sequence buffer in-stream) until (zerop length) do (write-sequence buffer stream :end length)))))