amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix(tui): Surgical parenthesis balance repair for TUI client main loop
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 13:11:52 -04:00
parent 24228e02fe
commit 309b8ee8a7
2 changed files with 90 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
literate/tui-client.org
View File

@@ -114,7 +114,7 @@ The OpenCortex TUI Client is a standalone Common Lisp application built on **Cro
(when (> (length *input-buffer*) 0) (when (> (length *input-buffer*) 0)
(decf (fill-pointer *input-buffer*)))) (decf (fill-pointer *input-buffer*))))
((characterp ch) ((characterp ch)
(vector-push-extend ch *input-buffer*)))) (vector-push-extend ch *input-buffer*)))))
(clear input-win) (clear input-win)
(add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string))) (add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string)))

2
src/tui-client.lisp
View File

@@ -101,7 +101,7 @@
(when (> (length *input-buffer*) 0) (when (> (length *input-buffer*) 0)
(decf (fill-pointer *input-buffer*)))) (decf (fill-pointer *input-buffer*))))
((characterp ch) ((characterp ch)
(vector-push-extend ch *input-buffer*)))) (vector-push-extend ch *input-buffer*)))))
(clear input-win) (clear input-win)
(add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string))) (add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string)))