Stacken/c64-livecoding
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove unused LET*

Browse source
This commit is contained in:
John Lorentzson 2025-07-30 10:35:06 +02:00
parent 1ab8dbb818
commit df009bac42
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
editor/editor.lisp
View file

@ -805,18 +805,17 @@ Additionally ensures correct line numbers on the way, as a bonus."
(compile-fail-prompt c (car source) (cdr source))) (compile-fail-prompt c (car source) (cdr source)))
nil)))) nil))))
(unless (null bytes) (unless (null bytes)
(let* () (with-open-file (output bin-name :direction :output
(with-open-file (output bin-name :direction :output :element-type '(unsigned-byte 8)
:element-type '(unsigned-byte 8) :if-exists :supersede)
:if-exists :supersede) (dolist (byte bytes)
(dolist (byte bytes) (write-byte byte output)))
(write-byte byte output))) (clear-screen)
(clear-screen) (usc::send-data-to-c64 (coerce bytes 'vector)
(usc::send-data-to-c64 (coerce bytes 'vector) 'draw-transfer-progress)
'draw-transfer-progress) (clear-screen)
(clear-screen) (redisplay-view (current-view *editor*))
(redisplay-view (current-view *editor*)) (redisplay-status-line :completely-p t)))))
(redisplay-status-line :completely-p t))))))