[Work around iolib backend bug with file uploads
clinton@unknownlamer.org**20080115222131
 When the user does not upload a file the iolib backend creates a
 zero-length file instead of no file.
] {
hunk ./src/web.lisp 116
-
hunk ./src/web.lisp 117
-  (let ((file (make-instance 'audio-file)))
-    (setf (audio-data file) body-stream)
-    (setf (audio-file-type file) content-type)
-    (setf (audio-data show) file)))
+  ;; with IOlib no-file -> empty file stream!
+  (if (> (file-length body-stream) 0)
+      (let ((file (make-instance 'audio-file)))
+	(setf (audio-data file) body-stream)
+	(setf (audio-file-type file) content-type)
+	(setf (audio-data show) file))))
}