# Pastebin 3KeIV2zh
(destructuring-bind (stream fname content-type)
        (form-data-item params "filename")
      (create-div body :content (format nil "filename = ~A - (contents printed in REPL)" fname))
      (let ((s (flexi-streams:make-flexi-stream stream :external-format :utf-8))
            (b (make-string 1000)))
        (loop
          (let ((c (read-sequence b s)))
            (unless (plusp c) (return))
            (princ (subseq b 1 c))))))