OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Slight optimization of entity rendering.

Browse Source
This commit is contained in:
Pierre R. Mai
2001-02-07 14:08:09 +00:00
parent a803c62958
commit f29dd3319e
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/main/entity.cl
View File

@ -72,9 +72,11 @@
(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)
(declare (type stream stream))
(with-open-stream (in-stream (stream-entity-stream entity)) (with-open-stream (in-stream (stream-entity-stream entity))
(declare (type stream in-stream))
(with-io-buffer (buffer) (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) until (zerop length)
do do
(write-sequence buffer stream :end length))))) (write-sequence buffer stream :end length)))))