Remove unused LET*

This commit is contained in:
John Lorentzson 2025-07-30 10:35:06 +02:00
parent 1ab8dbb818
commit df009bac42

View file

@ -805,7 +805,6 @@ 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)
@ -816,7 +815,7 @@ Additionally ensures correct line numbers on the way, as a bonus."
'draw-transfer-progress)
(clear-screen)
(redisplay-view (current-view *editor*))
(redisplay-status-line :completely-p t))))))
(redisplay-status-line :completely-p t)))))