diff options
author | sterni <sternenseemann@systemli.org> | 2024-11-30T10·48+0100 |
---|---|---|
committer | clbot <clbot@tvl.fyi> | 2024-12-02T18·03+0000 |
commit | 3f95f58038a48382bee5e09bc7bfba2a17a12061 (patch) | |
tree | 0bc543429f9bf6ac254881379d961623391f942a /third_party/lisp/mime4cl/mime.lisp | |
parent | 88d51c9c1647c583fd70a46fec4b3d6f7ac72797 (diff) |
refactor(3p/lisp/mime4cl): eliminate use of READ-CHAR in PRINT-MIME-PART r/8971
Change-Id: Ibb422d3b6720b782620e262bbd3555b9a879ad65 Reviewed-on: https://cl.tvl.fyi/c/depot/+/12854 Tested-by: BuildkiteCI Reviewed-by: sterni <sternenseemann@systemli.org> Autosubmit: sterni <sternenseemann@systemli.org>
Diffstat (limited to 'third_party/lisp/mime4cl/mime.lisp')
-rw-r--r-- | third_party/lisp/mime4cl/mime.lisp | 5 |
1 files changed, 1 insertions, 4 deletions
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) |