diff options
| author | sterni <sternenseemann@systemli.org> | 2023-05-17T22·14+0200 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2023-05-18T16·18+0000 |
| commit | 02684f3ac66c5a87443da799b08b1b3629d29b03 (patch) | |
| tree | 3c1d808159667811c9c8c16dbc55af62324ca666 /third_party/lisp/mime4cl/streams.lisp | |
| parent | a06e30e73b89c6fe92cf55d00c03d7ef6aaa6f5c (diff) | |
refactor(3p/lisp/mime4cl): remove be and be* r/6155
Seems simple enough to use standard LET and a few parentheses more which stock emacs can indent probably. Change-Id: I0137a532186194f62f3a36f9bf05630af1afcdae Reviewed-on: https://cl.tvl.fyi/c/depot/+/8584 Reviewed-by: sterni <sternenseemann@systemli.org> Autosubmit: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI
Diffstat (limited to 'third_party/lisp/mime4cl/streams.lisp')
| -rw-r--r-- | third_party/lisp/mime4cl/streams.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/third_party/lisp/mime4cl/streams.lisp b/third_party/lisp/mime4cl/streams.lisp index b9e56cf2d22c..7e9fc16d316f 100644 --- a/third_party/lisp/mime4cl/streams.lisp +++ b/third_party/lisp/mime4cl/streams.lisp @@ -138,7 +138,7 @@ in a stream of character.")) (with-slots (encoder buffer-queue real-stream) stream (loop while (queue-empty-p buffer-queue) - do (be byte (read-byte real-stream nil) + do (let ((byte (read-byte real-stream nil))) (if byte (encoder-write-byte encoder byte) (progn |