From df009bac4261dda929eaef3eed39c5d95fa24cf3 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Wed, 30 Jul 2025 10:35:06 +0200 Subject: [PATCH] Remove unused LET* --- editor/editor.lisp | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/editor/editor.lisp b/editor/editor.lisp index 6671ea7..8b9beb3 100644 --- a/editor/editor.lisp +++ b/editor/editor.lisp @@ -805,18 +805,17 @@ Additionally ensures correct line numbers on the way, as a bonus." (compile-fail-prompt c (car source) (cdr source))) nil)))) (unless (null bytes) - (let* () - (with-open-file (output bin-name :direction :output - :element-type '(unsigned-byte 8) - :if-exists :supersede) - (dolist (byte bytes) - (write-byte byte output))) - (clear-screen) - (usc::send-data-to-c64 (coerce bytes 'vector) - 'draw-transfer-progress) - (clear-screen) - (redisplay-view (current-view *editor*)) - (redisplay-status-line :completely-p t)))))) + (with-open-file (output bin-name :direction :output + :element-type '(unsigned-byte 8) + :if-exists :supersede) + (dolist (byte bytes) + (write-byte byte output))) + (clear-screen) + (usc::send-data-to-c64 (coerce bytes 'vector) + 'draw-transfer-progress) + (clear-screen) + (redisplay-view (current-view *editor*)) + (redisplay-status-line :completely-p t)))))