- (let ((buf (make-array 2048 :element-type '(unsigned-byte 8))))
- (loop as x = (read-sequence buf in)
- until (= x 0)
- do (write-sequence buf out :end x)))))))
-
+ (let ((buf (make-array 2048 :element-type '(unsigned-byte 8))))
+ (loop as x = (read-sequence buf in)
+ until (= x 0)
+ do (write-sequence buf out :end x)))))))
+