Skip to content

Instantly share code, notes, and snippets.

@christianwish

christianwish/overwrite-terminal-line.lisp

Created April 9, 2025 16:14
Show Gist options
  • Save christianwish/c865479ad2f362e5994759a206f9cf98 to your computer and use it in GitHub Desktop.
Save christianwish/c865479ad2f362e5994759a206f9cf98 to your computer and use it in GitHub Desktop.
Download ZIP
Overwrite a line in Terminal (for counter and stuff)
Raw
overwrite-terminal-line.lisp
(defun update-line-counter (max)
"Zählt von 1 bis MAX in derselben Terminalzeile hoch."
(loop for i from 1 to max do
(format t "~c[2K~c[0GZähler: ~d" #\Escape #\Escape i)
(finish-output)
(sleep 1)))
(update-line-counter 10)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment