From 3f95f58038a48382bee5e09bc7bfba2a17a12061 Mon Sep 17 00:00:00 2001 From: sterni Date: Sat, 30 Nov 2024 11:48:05 +0100 Subject: refactor(3p/lisp/mime4cl): eliminate use of READ-CHAR in PRINT-MIME-PART Change-Id: Ibb422d3b6720b782620e262bbd3555b9a879ad65 Reviewed-on: https://cl.tvl.fyi/c/depot/+/12854 Tested-by: BuildkiteCI Reviewed-by: sterni Autosubmit: sterni --- third_party/lisp/mime4cl/mime.lisp | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'third_party/lisp/mime4cl') diff --git a/third_party/lisp/mime4cl/mime.lisp b/third_party/lisp/mime4cl/mime.lisp index 3cdac4b26b6f..e8d9d5e8b850 100644 --- a/third_party/lisp/mime4cl/mime.lisp +++ b/third_party/lisp/mime4cl/mime.lisp @@ -880,10 +880,7 @@ returns a MIME-MESSAGE object." do (write-char (code-char byte) out))) (pathname (with-open-file (in body) - (loop - for c = (read-char in nil) - while c - do (write-char c out))))))) + (redirect-stream in out)))))) (defmethod print-mime-part ((part mime-message) (out stream)) (flet ((hdr (name) -- cgit 1.4.1