diff --git a/literate/tui-client.org b/literate/tui-client.org index d474e0f..0de0d71 100644 --- a/literate/tui-client.org +++ b/literate/tui-client.org @@ -114,14 +114,13 @@ The OpenCortex TUI Client is a standalone Common Lisp application built on **Cro (when (> (length *input-buffer*) 0) (decf (fill-pointer *input-buffer*)))) ((characterp ch) - (vector-push-extend ch *input-buffer*))) - - (clear input-win) - (add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string))) - (refresh input-win))) - - (refresh scr) - (sleep 0.02)))) + (vector-push-extend ch *input-buffer*)))) + + (clear input-win) + (add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string))) + (refresh input-win) + + (sleep 0.02)))) (setf *is-running* nil) (when *socket* (usocket:socket-close *socket*)))) #+end_src diff --git a/src/tui-client.lisp b/src/tui-client.lisp index ff1cf63..091aace 100644 --- a/src/tui-client.lisp +++ b/src/tui-client.lisp @@ -101,13 +101,12 @@ (when (> (length *input-buffer*) 0) (decf (fill-pointer *input-buffer*)))) ((characterp ch) - (vector-push-extend ch *input-buffer*))) - - (clear input-win) - (add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string))) - (refresh input-win))) - - (refresh scr) - (sleep 0.02)))) + (vector-push-extend ch *input-buffer*)))) + + (clear input-win) + (add-string input-win (concatenate 'string "> " (coerce *input-buffer* 'string))) + (refresh input-win) + + (sleep 0.02)))) (setf *is-running* nil) (when *socket* (usocket:socket-close *socket*))))