From 19ef2762289e618cb2ab6c30e9a1d84371049686 Mon Sep 17 00:00:00 2001 From: KURODA Hisao Date: Thu, 1 Jun 2023 09:47:15 +0900 Subject: [PATCH] external-format-out --- request.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/request.lisp b/request.lisp index a2b05ea..485abb0 100644 --- a/request.lisp +++ b/request.lisp @@ -83,6 +83,7 @@ body using the boundary BOUNDARY." "Sends carriage return and linefeed to STREAM." (write-char #\Return stream) (write-char #\Linefeed stream))) + (setf (flexi-stream-external-format stream) external-format-out) (dolist (name/value parameters) (destructuring-bind (name . value) name/value @@ -97,9 +98,7 @@ body using the boundary BOUNDARY." (crlf) (format stream "Content-Type: text/plain; charset=~a" external-format-out) (crlf) (crlf) - (setf (flexi-stream-external-format stream) external-format-out) - (format stream "~A" value) - (setf (flexi-stream-external-format stream) +latin-1+)) + (format stream "~A" value)) ((null value) (crlf)) ((and (listp value)