From 02684f3ac66c5a87443da799b08b1b3629d29b03 Mon Sep 17 00:00:00 2001 From: sterni Date: Thu, 18 May 2023 00:14:11 +0200 Subject: refactor(3p/lisp/mime4cl): remove be and be* 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 Autosubmit: sterni Tested-by: BuildkiteCI --- third_party/lisp/mime4cl/streams.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'third_party/lisp/mime4cl/streams.lisp') 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 -- cgit 1.4.1