文字列をバイト列のstreamとして扱う - Qiita

(defmethod get-data-from-post-data (query) "clackサーバのenvironmentからPostのデータを読み取って適切な文字コードに変換して返す" (let ((stream (getf query :RAW-BODY)) (temp "")) (setf temp (concatenate 'string temp (jp:decode (getf query :RAW-BODY-BUFFER) :guess))) (do ((line (read-line stream nil) (read-line stream nil))) ((null line)) (setf temp (concatenate 'string temp (jp:decode (kmrcl:string-to-usb8-array line) :guess) (li