Remove unused LET*
This commit is contained in:
parent
1ab8dbb818
commit
df009bac42
1 changed files with 11 additions and 12 deletions
|
@ -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)))))
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue